uses graphabc;
var i:integer; angle:real;
begin
centerwindow;
angle:=0;
setwindowsize(512,512);
setpencolor(clyellow);
setbrushcolor(clyellow);
circle(256,256,64);
for i:=1 to 60 do
begin
     sleep(10);
    line(256,256,round(1024*cos(angle)),round(1024*sin(angle)));
    angle:=angle+60
    end;
end.