uses crt,graphABC;
var x,y,i,n, a: Integer;
r: Color;
begin
randomize;
for n:=1 to 10 do
begin
 i:=1;
 a:=random(-100,300);
for i:=1 to 800 do
begin
clearwindow(clblack);
 setbrushcolor(clLightGray);
 Ellipse(-100+i,120+a,50+i,200+a);
 setbrushcolor(rgb(186,219,235));
 Pie(-25+i,160+a,50,0,180);
 setpencolor(clLightGray);
 setpenwidth(9);
 line(-70+i,192+a, -80+i,230+a);
 line(-36+i,200+a, -36+i, 235+a);
 line(18+i,192+a, 28+i,230+a);
 sleep(30);
 end;
 end;
end.