Графика в программировании

uses graphABC;
//рисование одного кружочка с номером
procedure nomer(x,y,r,k:integer);
var s:string;
begin
setbrushcolor(clYellow);//цвет кисти желтый
circle(x,y,r);//окружность
str(k,s);//цифра
setfontsize(12);//размкр шпифта
textout(x-5,y-5,s);//вывод цифры
end;
var xc,yc,r1,r2,r3,a,x1,x2,x3,y1,y2,y3,i:integer;
begin
xc:=windowwidth div 2; //центр экрана
yc:=windowheight div 2;
r1:=150;//радиус диска
r3:=25; //радиус кружочков
r2:=r1-3*r3 div 2;//радиус положения кружочков
clearwindow(clYellow); //очистим экран желтым
setbrushcolor(clGreen);//зеленая кисть
setpencolor(clGreen); //и перо
circle(xc,yc,r1);//диск
x1:=xc+round((r2-r3)*cos(-pi/4));//треугольник
y1:=yc-round((r2-r3)*sin(-pi/4));
x2:=xc+round((r1+r3)*cos(-pi/4+pi/20));
y2:=yc-round((r1+r3)*sin(-pi/4+pi/20));
x3:=xc+round((r1+r3)*cos(-pi/4-pi/20));
y3:=yc-round((r1+r3)*sin(-pi/4-pi/20));
setpencolor(clSilver);//рисуем серебряным цветом
line(x1,y1,x2,y2);
line(x2,y2,x3,y3);
line(x3,y3,x1,y1);
floodfill(x1+40,y1+30,clSilver);//закрасим верх
floodfill(x3,y3-5,clSilver);//низ
a:=270; //9 кружочков с номерами
for i:=0 to 9 do
 begin
  Nomer(xc+round(r2*cos(a*pi/180)),yc-round(r2*sin(a*pi/180)),r3,i);
  a:=a-30;
 end;
setbrushcolor(clBlack);//черный кружок в центре
setpencolor(clBlack);
circle(xc,yc,r3);
end.

uses graphABC;
var a,n,xc,yc,i,ax,bx,cx,ay,by,cy:integer;
    m:real;
begin
a:=200;
n:=20;
m:=0.08;
xc:=windowwidth div 2;
yc:=windowheight div 2+50;
ax:=xc+round(a*cos(pi/2));ay:=yc-round(a*sin(pi/2));
bx:=xc+round(a*cos(-pi/6));by:=yc-round(a*sin(-pi/6));
cx:=xc+round(a*cos(7*pi/6));cy:=yc-round(a*sin(7*pi/6));
for i:=1 to n do
 begin
  line(ax,ay,bx,by);
  line(bx,by,cx,cy);
  line(cx,cy,ax,ay);
  ax:=ax+round((bx-ax)*m);ay:=ay+round((by-ay)*m);
  bx:=bx+round((cx-bx)*m);by:=by+round((cy-by)*m);
  cx:=cx+round((ax-cx)*m);cy:=cy+round((ay-cy)*m);
 end;
end.

uses graphABC;
var f:boolean;//переменная для выхода из программы 
    z:integer;//задержка=скорость    
procedure KeyPress(Key: char);
begin
case Key of
#60:z:=z+20;
#62:z:=z-20;
#13:f:=false
end;
end;
var xc,yc,x,y,r,r1,r2:integer;
    u:real;
begin
xc:=windowwidth div 2;
yc:=windowheight div 2;
r:=5;//радиус круга
r1:=100;//радиус окружности
r2:=r1+r;//радиус вращения круга
f:=true;
z:=100;
lockdrawing;
u:=0;
repeat
clearwindow;
textout(xc-100,10,'< убавить скорость; > прибавить скорость');
textout(xc-30,30,'Enter - выход');
x:=xc+round(r2*cos(u));
y:=yc-round(r2*sin(u));
circle(x,y,r);
sleep(z);
u:=u+0.1;
redraw;
OnKeyPress := KeyPress;
until f=false
end.