Построить три равносторонних треугольника, вращающихся вокруг одной из своих вершин

uses crt,graph;
procedure Vrash(a:real;var x,y:integer;x0,y0,d:integer);
begin
a:=a*pi/180;
x:=x0+round(d*cos(a));
y:=y0-round(d*sin(a));
end;
 
var gd,gm:integer;
    ch:char;
    x0,y0,d,ax,ay,bx,by,k:integer;
    aa,ab:real;
begin
clrscr;
repeat
writeln('Dlina storony (20-230) d=');
readln(d);
until d in [20..230];
writeln('Press Enter...');
readln;
gd:=0;
initgraph(gd,gm,'');
outtextXY(150,30,'Vrashenie strelki <--  -->, vyhod - Esc');
x0:=getmaxX div 2;y0:=getmaxY div 2;
aa:=60;ab:=120;
ax:=x0+round(d*cos(pi*aa/180));
ay:=y0-round(d*sin(pi*aa/180));
bx:=x0+round(d*cos(pi*ab/180));
by:=y0-round(d*sin(pi*ab/180));
Setcolor(12);
setlinestyle(0,0,3);
line(x0,y0,ax,ay);
line(ax,ay,bx,by);
line(x0,y0,bx,by);
repeat
if keypressed then
 begin
  ch:=readkey;
  case ch of
  #75:k:=2;
  #77:k:=-2;
  #27:exit;
  end;
 end;
delay(50);
setcolor(0);
setlinestyle(0,0,3);
line(x0,y0,ax,ay);
line(ax,ay,bx,by);
line(x0,y0,bx,by);
Vrash(aa,ax,ay,x0,y0,d);
Vrash(ab,bx,by,x0,y0,d);
Setcolor(12);
setlinestyle(0,0,3);
line(x0,y0,ax,ay);
line(ax,ay,bx,by);
line(x0,y0,bx,by);
aa:=aa+k;ab:=ab+k;
until ch=#27;
readln
end.

uses graph, crt;
const n=3;{меняя константу вы получаете любой равносторонний многоугольник}
var poly:array[1..n+1] of pointtype;
 r,x,y,i,driver,mode:integer;
 alpha:real;
 s:string;
begin
 write('radius: ');
 readln(r);
 alpha:=0;
 driver:=detect;
 InitGraph (driver,mode, 'd:\bp\bgi');
 if GraphResult<>GroK then halt(1);
 clearviewPort;
 repeat
 x:=GetMaxX shr 1;
 y:=GetMaxY shr 1;
 for i:=1 to n +1 do begin
 poly[i].X:=x+round(R*Cos(alpha+(i-1)*2*pi/n));
 poly[i].Y:=y+Round(R*sin(alpha+(i-1)*2*pi/n));
 end;
 SetColor(10);
 DrawPoly(n+1,poly);
alpha:= alpha+pi/180;
 delay(1000);
 setcolor(0);
 DrawPoly(n+1,poly);
 until KeyPressed;
 closeGraph;
 end.