uses GraphABC;

var k: integer;

begin
  SetWindowSize(600, 500);
  SetBackgroundColor(clBlack);

  for k := 0 to 40 do
  begin
    ClearWindow;
    SetPenColor(clWhite);

    { Тело ? трапеция }
    Line(220, 170, 190, 350);
    Line(190, 350, 410, 350);
    Line(410, 350, 380, 170);
    Line(220, 170, 380, 170);

    { Дно }
    Rectangle(180, 350, 420, 380);

    { Носик }
    Line(380, 220, 450, 180);
    Line(450, 180, 470, 200);
    Line(470, 200, 400, 250);
    Line(400, 250, 380, 220);

    { Крышка ? полукруг (поднимается) }
    Arc(300, 170 - k, 80, 0, 180);
    Line(220, 170-k, 380, 170-k);
    Sleep(60);
  end;

end.