ЭС
Эдуард Солод
допустим так:
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.
спс