Program Animation;
Uses Graph, Crt;

Var
  d, m, k: Integer;

Begin
  d := Detect;
  InitGraph(d, m, 'C:\TP\BGI');

  SetBkColor(Black);

  For k := 0 to 40 do
  Begin
    ClearDevice;
    SetColor(White);

    { Тело ? трапеция }
    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, 0, 180, 80);
    Line(220, 170-k, 380, 170-k);

    Delay(30);
  End;

  ReadLn;
  CloseGraph;
End.