Изобразить на экране ЭВМ следующий рисунок:
Построение графических изображений в Паскале abc.net

uses graphabc;beginline(300,100,600,100);line(200,400,500,400);line(500,400,600,100);line(200,400,300,100);//line(700,250,583,150);line(700,250,532,300);//circle(520,150,30);circle(520,150,20);//line(300,300,350,300);line(300,300,200,200);line(200,200,200,150);line(200,150,250,150);line(250,150,400,200);line(400,200,400,250);line(400,250,350,300);//line(225,320,150,300);line(225,320,150,350);line(150,350,150,300);//floodfill(520,150,clblack);floodfill(600,250,clblack);floodfill(350,250,clblack);floodfill(210,199,clblack);floodfill(450,350,clgray);floodfill(155,303,clblack);end.