uses graphabc;
begin
SetPenWidth(2);
SetPenColor(clDarkBlue);
line(170,400,470,400);
line(120,300,520,300);
line(120,300,170,400);
line(520,300,470,400);
circle(190,350,25);
circle(255,350,25);
circle(320,350,25);
circle(385,350,25);
circle(450,350,25);
rectangle(150,280,490,300);
rectangle(175,210,245,280);
floodfill(180,215,clblue);
rectangle(285,140,355,280);
floodfill(290,145,clblue);
rectangle(395,210,465,280);
floodfill(400,215,clblue);
end.
Объяснение:
Смотри картинку
