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