Всистеме программирования pascal abc составьте программы для создание изображение с использования процедуры.(рис 3.4) сорочно ​

Program ship;

Uses crt,graph;

Var gd,gm: integer;

Begin

gd:=detect;

Initgraph(gd,gm,'');

Line(100,300,400,300);

Line(150,380,350,380);

Line(100,300,150,380);

Line(400,300,350,380);

Line(250,300,250,180);

Line(250,180,340,230);

Line(340,230,250,280);

Setfillstyle(9,blue);

Floodfill(160,340,15);

Setfillstyle(3,lightgreen);

Floodfill(270,210,15);

Readkey;

Closegraph;

End.

Объяснение: