uses crt,graphABC;
var x,y,i,k: Integer;
r: Color;
begin
randomize;
clearwindow;
for i:=1 to 800 do
begin

setbrushcolor(clblack);
rectangle(0,0,700,700);
for k:=1 to 3000 do
begin
x:=random(0,700);
y:=random(0,700);
r:=rgb(random(255),random(255),random(255));
setbrushcolor(clyellow);
putpixel(x,y,r);
end;
 setbrushcolor(clLightGray);
 Ellipse(-100+i,120,50+i,200);
 setbrushcolor(rgb(186,219,235));
 Pie(-25+i,160,50,0,180);
 setpencolor(clLightGray);
 setpenwidth(9);
 line(-70+i,192, -80+i,230);
 line(-36+i,200, -36+i, 235);
 line(18+i,192, 28+i,230);
 sleep(10);
 end;
end.