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;
    setpencolor(clgreen);
for i:=0 to 128 do
    begin
     sleep(5);
    setbrushcolor(RGB(0,255-round(i*1.5),0));
    setpencolor(RGB(0,255-round(i*1.5),0));
    rectangle(0,384+i,512,512);
    end;

 setbrushcolor(clbrown);
rectangle(32,360,256,448);

for i:=1 to 112 do
    begin
    sleep(5);
    setbrushcolor(RGB(i*2,0,i*2));
    setpencolor(RGB(i*2,0,i*2));
    rectangle(32+i,361-i,256-i,360-i);
    end;

for i:=0 to 15 do
    begin
    sleep(10);
    setbrushcolor(clbrown);setpencolor(clblack);
    rectangle(256+i*16,398+random(16),265+i*16,448);
    end;

for i:=0 to 50 do
    begin
    sleep(10);
    setbrushcolor(RGB(30+i*2,0,30+i*2));
    setpencolor(RGB(i*2,0,i*2));
    circle(random(512),random(32)+480, 1+random(8));
    end;

end.