uses
  graphABC;

var
  x, y, i, n, a: Integer;

var
  K, B: Array of Integer;
  C: Array of Color;
  r: Color;

begin
  randomize;
  LockDrawing;
  for i := 1 to 800 do
  begin
    K[i] := random(0,700);
    B[i] := random(0,700);
    C[i] := rgb(random(255), random(255), random(255));
  end;
  for n := 1 to 10 do
  begin
    i := 1;
    a := random(-100, 300);
    for i := 1 to 800 do
    begin
      clearwindow(clblack);
      putpixel(K[i], B[i], C[i]);
      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);
      Redraw;
      sleep(1);
    end;
  end;
end.