Графика в Паскале

Uses graph,crt;
 const h=10; n=3;
  Var r,x0,y0,x2,y2,x3,y3,x,y,j :integer;
    procedure init;
     Var gd,gm:integer;
       gd:=detect;
       initGraph (gd,gm,'');
    end;
 begin
clrscr;
Init;
writeln ('введите r=');
readln (r);
x0:=getmaxX div 2;
y0:=getmax y div 2-20;
Moveto (x0,y0);
 end;
begin
x:=x0+round(r*cos*60+j*2*pi/n));
y:=y0+round(r*sin*60+j*2*pi/n));
LineTo (x,y);
end;

uses crt,graph;
var  i,x0,y0,R,gd,gm:integer;
     p:array[1..4]of PointType;{массив из 4х точек(1=4)}
     a,h,c1,c2:integer;
{рисование треугольника с заданным углом поворота и светом}
procedure Move(a,c:integer);
var i:integer;
begin
for i:=1 to 4 do
 begin
  p[i].x:=x0+round(R/2*cos(a*pi/180));
  p[i].y:=y0-round(R/2*sin(a*pi/180));
  a:=a+120;
  end;
p[4].x:=p[1].x;
p[4].y:=p[1].y;
MoveTo(p[1].x,p[1].y);
SetColor(c);
for i:=1 to 4 do
LineTo(p[i].x,p[i].y);
setfillstyle(1,c);
floodfill(x0,y0,c);
end;
begin
gd:=0;
InitGraph(gd,gm,'');
R:=200;
x0:=GetMaxX div 2;
y0:=GetMaxY div 2;
a:=-30;{начальный угол}
c1:=13;{цвет закраски(можно от 1 до 15)}
c2:=0;{цвет фона, по умолчанию черный}
h:=10;{шаг поворота в градусах}
outtextXY(x0-50,20,'Vyhod any key...');
repeat
Move(a,c1);{рисуем}
delay(1000);{1 сек. задержка}
Move(a,c2);{стираем}
a:=a+h;{поворачиваем на 10 градусов}
until keypressed;{нажатие любой клавиши - выход}
readln
end.