program Max;
uses GraphABC;
label q;
var

Anim,i:integer;
P: array of Point;
begin
SetWindowSize(500,500);
Anim:=1;
for i:=1 to 15 do
begin
q:
SetPenWidth(1);
ellipse(180,180,320,350);
ellipse(220,110,280,180);
Line(220,340,210,400); //левая нога
Line(280,340,290,400); //правая нога
Line(210,400,190,405); //левая ступня
Line(290,400,310,405); //правая ступня
Arc(250,145,20,225,315);
DrawCircle(240,130,4);
DrawCircle(260,130,4);
SetLength(P, 4);



case Anim of
1: begin
p[0].X := 280; p[0].Y := 225; //Координаты первой вершины
p[1].X := 380; p[1].Y := 180; //Координаты второй вершины
p[2].X := 290; p[2].Y := 280; //Координаты третьей вершины
p[3].X := 280; p[3].Y := 225; //Координаты четвертой вершины
PolyLine(P);


p[0].X := 220; p[0].Y := 225; //Координаты первой вершины
p[1].X := 120; p[1].Y := 180; //Координаты второй вершины
p[2].X := 210; p[2].Y := 280; //Координаты третьей вершины
p[3].X := 220; p[3].Y := 225; //Координаты четвертой вершины
PolyLine(P);
Anim:=2;
sleep(500);
ClearWindow;


goto q;



end;
2: begin
p[0].X := 280; p[0].Y := 225; //Координаты первой вершины
p[1].X := 380; p[1].Y := 206; //Координаты второй вершины
p[2].X := 290; p[2].Y := 280; //Координаты третьей вершины
p[3].X := 280; p[3].Y := 225; //Координаты четвертой вершины
PolyLine(P);


p[0].X := 220; p[0].Y := 225; //Координаты первой вершины
p[1].X := 120; p[1].Y := 206; //Координаты второй вершины
p[2].X := 210; p[2].Y := 280; //Координаты третьей вершины
p[3].X := 220; p[3].Y := 225; //Координаты четвертой вершины
PolyLine(P);
Anim:=3;
sleep(500);
ClearWindow;

goto q;


end;

3:
begin
p[0].X := 280; p[0].Y := 225; //Координаты первой вершины
p[1].X := 380; p[1].Y := 232; //Координаты второй вершины
p[2].X := 290; p[2].Y := 280; //Координаты третьей вершины
p[3].X := 280; p[3].Y := 225; //Координаты четвертой вершины
PolyLine(P);


p[0].X := 220; p[0].Y := 225; //Координаты первой вершины
p[1].X := 120; p[1].Y := 232; //Координаты второй вершины
p[2].X := 210; p[2].Y := 280; //Координаты третьей вершины
p[3].X := 220; p[3].Y := 225; //Координаты четвертой вершины
PolyLine(P);
Anim:=4;
sleep(500);
ClearWindow;

goto q;


end;

4:
begin
p[0].X := 280; p[0].Y := 225; //Координаты первой вершины
p[1].X := 380; p[1].Y := 258; //Координаты второй вершины
p[2].X := 290; p[2].Y := 280; //Координаты третьей вершины
p[3].X := 280; p[3].Y := 225; //Координаты четвертой вершины
PolyLine(P);


p[0].X := 220; p[0].Y := 225; //Координаты первой вершины
p[1].X := 120; p[1].Y := 258; //Координаты второй вершины
p[2].X := 210; p[2].Y := 280; //Координаты третьей вершины
p[3].X := 220; p[3].Y := 225; //Координаты четвертой вершины
PolyLine(P);
Anim:=5;
sleep(500);
ClearWindow;

goto q;

end;


5:
begin
p[0].X := 280; p[0].Y := 225; //Координаты первой вершины
p[1].X := 380; p[1].Y := 284; //Координаты второй вершины
p[2].X := 290; p[2].Y := 280; //Координаты третьей вершины
p[3].X := 280; p[3].Y := 225; //Координаты четвертой вершины
PolyLine(P);


p[0].X := 220; p[0].Y := 225; //Координаты первой вершины
p[1].X := 120; p[1].Y := 284; //Координаты второй вершины
p[2].X := 210; p[2].Y := 280; //Координаты третьей вершины
p[3].X := 220; p[3].Y := 225; //Координаты четвертой вершины
PolyLine(P);
Anim:=6;
sleep(500);
ClearWindow;
goto q;
end;

6:
begin
p[0].X := 280; p[0].Y := 225; //Координаты первой вершины
p[1].X := 380; p[1].Y := 310; //Координаты второй вершины
p[2].X := 290; p[2].Y := 280; //Координаты третьей вершины
p[3].X := 280; p[3].Y := 225; //Координаты четвертой вершины
PolyLine(P);


p[0].X := 220; p[0].Y := 225; //Координаты первой вершины
p[1].X := 120; p[1].Y := 310; //Координаты второй вершины
p[2].X := 210; p[2].Y := 280; //Координаты третьей вершины
p[3].X := 220; p[3].Y := 225; //Координаты четвертой вершины
PolyLine(P);
sleep(500);
ClearWindow;
Anim:=7;
goto q;
end;
7: begin
p[0].X := 280; p[0].Y := 225; //Координаты первой вершины
p[1].X := 380; p[1].Y := 284; //Координаты второй вершины
p[2].X := 290; p[2].Y := 280; //Координаты третьей вершины
p[3].X := 280; p[3].Y := 225; //Координаты четвертой вершины
PolyLine(P);


p[0].X := 220; p[0].Y := 225; //Координаты первой вершины
p[1].X := 120; p[1].Y := 284; //Координаты второй вершины
p[2].X := 210; p[2].Y := 280; //Координаты третьей вершины
p[3].X := 220; p[3].Y := 225; //Координаты четвертой вершины
PolyLine(P);
Anim:=8;
sleep(500);
ClearWindow;
goto q;
end;

8:begin
p[0].X := 280; p[0].Y := 225; //Координаты первой вершины
p[1].X := 380; p[1].Y := 258; //Координаты второй вершины
p[2].X := 290; p[2].Y := 280; //Координаты третьей вершины
p[3].X := 280; p[3].Y := 225; //Координаты четвертой вершины
PolyLine(P);


p[0].X := 220; p[0].Y := 225; //Координаты первой вершины
p[1].X := 120; p[1].Y := 258; //Координаты второй вершины
p[2].X := 210; p[2].Y := 280; //Координаты третьей вершины
p[3].X := 220; p[3].Y := 225; //Координаты четвертой вершины
PolyLine(P);
Anim:=9;
sleep(500);
ClearWindow;

goto q;

end;

9:begin
p[0].X := 280; p[0].Y := 225; //Координаты первой вершины
p[1].X := 380; p[1].Y := 232; //Координаты второй вершины
p[2].X := 290; p[2].Y := 280; //Координаты третьей вершины
p[3].X := 280; p[3].Y := 225; //Координаты четвертой вершины
PolyLine(P);


p[0].X := 220; p[0].Y := 225; //Координаты первой вершины
p[1].X := 120; p[1].Y := 232; //Координаты второй вершины
p[2].X := 210; p[2].Y := 280; //Координаты третьей вершины
p[3].X := 220; p[3].Y := 225; //Координаты четвертой вершины
PolyLine(P);
Anim:=10;
sleep(500);
ClearWindow;

goto q;
end;
10:
begin
p[0].X := 280; p[0].Y := 225; //Координаты первой вершины
p[1].X := 380; p[1].Y := 206; //Координаты второй вершины
p[2].X := 290; p[2].Y := 280; //Координаты третьей вершины
p[3].X := 280; p[3].Y := 225; //Координаты четвертой вершины
PolyLine(P);


p[0].X := 220; p[0].Y := 225; //Координаты первой вершины
p[1].X := 120; p[1].Y := 206; //Координаты второй вершины
p[2].X := 210; p[2].Y := 280; //Координаты третьей вершины
p[3].X := 220; p[3].Y := 225; //Координаты четвертой вершины
PolyLine(P);
Anim:=1;
sleep(500);
ClearWindow;

goto q;





end;
end;
end;
end.