В Паскаль ABC сделать графического человека маленького с анимацией 8 класс

Question

В Паскаль ABC сделать графического человека маленького с анимацией 8 класс

Answer 1

//Это человечек в профиль.
//Pascal ABC.NET v3.1 сборка 1172

Uses
 GraphABC;

Var
 i:integer;
begin
maximizewindow;
 for i:=100 to 500 do
  begin
   clearwindow();
   setbrushcolor(clGold);
   circle(i,i,10);
   circle(i,i+30,6);
   circle(i,i+65,6);
   setbrushcolor(clgray);
   ellipse(i-15,i+10,i+15,i+60);
   setbrushcolor(clGold);
   circle(i,i+30,6);
   sleep(40);
  end;
end.