uses
  graphABC;

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

begin
  LockDrawing;
  y := 355;
  y1:=378;
  while y > 140 do
  begin
    setpencolor(clblack);
    setbrushcolor(clWhite);
    ellipse(220, 100, 390, 180);
    line(220, 140, 250, 350);
    line(390, 140, 360, 350);
    setbrushcolor(clLightBlue);
    setpencolor(clblack);
    ellipse(250, 330, 360, 380);
    setpencolor(clLightBlue);
    x := (y + 1400) / (7);
    x1 := -(y1 - 2870) / (7);
    ellipse(Round(x), y, Round(x1), y1);
    y := y - 1;
    y1:=y1-1;
    Redraw;
  end
end.