рисунок в паскале

Ответ от
uses graphABC;
begin
setwindowsize(350,300);
setpenwidth(3);
line(50,280,80,100);
line(230,280,200,100);
line(50,280,230,280);
line(52,260,228,260);
line(210,150,270,70);
line(215,200,295,70);
line(270,70,295,70);
setbrushcolor(clblack);
rectangle(80,80,200,100);
arc(140,100,60,0,180);
line(130,40,125,20);
line(150,40,155,20);
line(125,20,155,20);
floodfill(140,30,clblack);
floodfill(140,275,clblack);
floodfill(140,50,clskyblue);
floodfill(140,120,clskyblue);
floodfill(250,110,clskyblue);
end.
Анимация
uses graphABC,crt;
var i,j: integer;
a: array [1..10,1..3] of integer;
begin setwindowsize(500,400);
lockdrawing; hidecursor;
repeat for i:=1 to 10 do
begin a[i,1]:=random(500);
a[i,2]:=random(100)+320;
a[i,3]:=random(20)+5;
end;
for i:=700 downto -200 do
begin
clearwindow(clbrown);
setbrushcolor(clyellow);
rectangle(0,300,500,400);
setbrushcolor(clblack);
for j:=1 to 10 do
circle(a[j,1],a[j,2],a[j,3]);
arc(i,300,50,0,180);
line(i-(51),299,i+(51),299);
floodfill(i,280,clltgray);
setbrushcolor(clltgray);
circle(i-(40),260,20);
line(i-(50),299,i-(70),299);
line(i-(45),280,i-(70),299);
setpencolor(clltgray);
arc(i,300,50,130,180);
setpencolor(clblack);
floodfill(i-(60),297,clltgray);
setpencolor(clblack);
setbrushcolor(clblack);
circle(i-(40),290,3);
circle(i-(68),295,5);
arc(i+(80),300,30,180,0);
sleep(1);
redraw;
end;
until keypressed;
end.