uses
  graphABC;

var
  x, x1: Real;
  y, y1: Integer;

begin
  LockDrawing;
  y := 330;
  y1 := 380;
  while y > 160 do
  begin
    setpencolor(clBlack);
    setbrushcolor(clwhite);
    ellipse(220, 100, 390, 160);
    line(220, 135, 250, 350);
    line(390, 135, 360, 350);
    x := (y + 1400) / (7);
    x1 := -(y1 - 2870) / (7);
    setbrushcolor(ClLightBlue);
    ellipse(250, 330, 360, 380);
    setpencolor(ClLightBlue);
    ellipse(Round(x) + 4, y, Round(x1) + 4, y1);
    y := y - 1;
    y1 := y1 - 1;
    setpencolor(clblack);
    setbrushcolor(clwhite);
    ellipse(220, 100, 390, 160);
    If y=160 then
    begin
    setpencolor(clBlack);
    setbrushcolor(clLightBlue);
    ellipse(Round(x) + 4, y, Round(x1) + 4, y1);
    end;
    sleep(10);
    Redraw;
  end
end.