//Это человечек в профиль.
//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.