uses
  crt,graphABC;

var
  i, n, a,j: Integer;
 t: Boolean;
var
  K, B: Array[1..3000] of Integer;
  C: Array[1..3000] of Color;
 begin
  while t=False do
  begin
  t:=KeyPressed;
  randomize;
  LockDrawing;
  for j := 1 to 3000 do
  begin
    K[j] := random(0,700);
    B[j] := random(0,700);
    C[j] := rgb(random(255), random(255), random(255));
  end;
  for n := 1 to 100 do
  begin
    i := 1;
    a := random(-100, 300);
    while i<800 do
    begin
     i:=i+4;
     clearwindow(clblack);
      for j := 1 to 3000 do
      putpixel(K[j], B[j], C[j]);
      setbrushcolor(clDarkGray);
      Ellipse(-100 + i, 120 + a, 50 + i, 200 + a);
      setbrushcolor(clLightBlue);
      setpencolor(clLightBlue);
      Pie(-25 + i, 160 + a, 50, 0, 180);
      setpencolor(clDarkGray);
      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);
      Redraw;
      sleep(1);
    end;
  end;
end;
halt;
end.