6b 6

program bublik;

uses
  graphABC;

var
  x, y,n,i: integer;
  k:real;
  K1, B: Array[1..901] of Integer;
  C: Array[1..901] of Color;
begin
  Window.SetSize(640, 640);
  k := 1;
  LockDrawing;
  for i := 1 to 900 do
  begin
    K1[i] := random(0,640);
    B[i] := random(0,640);
    C[i] := rgb(random(255), random(255), random(255));
  end;

  for n:=1 to 10 do begin
  i := 1;
  while k < 360 do
  begin
    clearwindow(clblack);
    for i:=1 to 900 do
     putpixel(K1[i], B[i], C[i]);
    X := 300 + round(Sin(K) * 250 + 50); {ширина эллипса}
    Y := 300 + round(Cos(K) * 100 + 40);
    setbrushcolor(clSkyBlue);
    circle(x, y, 15);
    k := k + 0.009;
    setbrushcolor(clYellow);
    circle(300,300, 30);
    Redraw;
  end;
  end;
end.