Ответ:
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.
Объяснение:
<span>РАЗАРХИВИРОВАНИЕ -</span>Процедура, обратная архивированию. Восстановление сжатых файлов из архивного файла.
<span>АРХИВИРОВАНИЕ - Сжатие одного или более файлов с целью экономии памяти и размещение сжатых данных в одном архивном файле. А. выполняется специальной программой - архиватором</span>
Решение смотри в приложенном скриншоте.