Построить узор, полученый из шести групп двадцати вложенных правильных треугольников

uses crt,mygraph,graph;
var N,R,xc,yc,i:integer; alfa,x1,y1:real;
x:array [0..100] of integer;
y:array [0..100] of integer;
ch:char;
Begin
Init;
N:= 3;  R:= 50;  xc:= GetMaxX div 2;  yc:= GetMaxY div 2;
  for i:= 1 to N do begin alfa:= i*2. *pi/N;
             x[i]:= xc + round(R*cos(alfa));
             y[i]:= yc + round(R*sin(alfa))
  end;
                     MoveTo(x[N], y[N]);
  for i:= 1 to N do  LineTo(x[i], y[i]);
                        ch:= ReadKey;
Repeat
                            x1:=x[1];  y1:=y[1];
 for i:=1 to N-1 do begin  x[i]:= (x[i]+x[i+1]) div 2;
                           y[i]:= (y[i]+y[i+1]) div 2 end;
                            x[N]:= (x[N]+Trunc(x1)) div 2;
                            y[N]:= (y[N]+Trunc(y1)) div 2;
 
                   MoveTo(x[N], y[N]);
  for i:=1 to N do LineTo(x[i], y[i]);
                          ch:=ReadKey;
Until ch=#27;
readkey;
CloseGraph;
end.