срочна нужна помощь

[kalashik]

Здравствуйте, мне очень нужна помощь с программой,

задание
Составить программу, моделирующую процесс вращения на плоскости экрана правильного треугольника вокруг своего центра.

помогите плиз, вот то что я написал уже, а дальше уже мозги клинят.

program re;
uses crt,graph;
var x,y,x0,y0,x1,y1,y2,x2,i :real;
gd,md:integer;


procedure o;
begin
gd:=detect;
initgraph(gd,md,'O^\TP\BIN\GRAPH/TPU');

x0:=300;
y0:=200;
x:=360;
y:=230;
setfillstyle(1,4);
setcolor(15);
i:=0;
putpixel(round(x0),round(y0),4);
x1:=240;
y1:=230;
x2:=300;
y2:=130;
putpixel(round(x),round(y),14);
putpixel(round(x1),round(y1),14);
putpixel(round(x2),round(y2),14);
line(round(x),round(y),round(x1),ro und(y1));
line(round(x),round(y),round(x2),ro und(y2));
line(round(x1),round(y1),round(x2), round(y2));

readkey;
repeat
I:=i+1;
x:=x+0.1;
x1:=x1+0.1;
x2:=x2+0.1;
y:=(y0+(sqrt(4500-(x-x0)*(x-x0))));
y1:=(y0+(sqrt(4500-(x1-x0)*(x1-x0))));
y2:=(y0+(sqrt(4500-(x2-x0)*(x2-x0))));
line(round(x),round(y),round(x1),ro und(y1));
line(round(x),round(y),round(x2),ro und(y2));
line(round(x1),round(y1),round(x2), round(y2));

delay(10000);
clearviewport;
until i>150;

readkey;
closegraph;

end;

begin
o;

readkey;
end.