{* Рисование Корабля *}

Unit GR_2;
Interface
Implementation
Begin
 writeln('Рисование Корабля');
End.

Program gr_2;

Uses gr_2.pas; {* Эту строку можно удалить *}
Uses graph, crt; {* Подключение модулей *}
Var {* Необходимые переменные *}
  Gd : integer;
  Gm : integer;
  i  : integer;
Begin
  Gd := Detect;
  initgraph(Gd, Gm, '');
  line(150, 200, 200, 250);
  line(200, 250, 300, 250);
  line(300, 250, 350, 200);
  line(350, 200, 150, 200);
  line(180, 200, 180, 140);
  line(180, 140, 250, 140);
  line(250, 140, 250, 200);
  line(250, 140, 250, 200);
  circle(210, 220, 10);
  circle(240, 220, 10);
  circle(270, 220, 10);
  line(200, 140, 200, 90);
  bar(200, 90, 230, 110);
  readkey; {* Нажмите любую клавишу *}
  closegraph;
End.