{* Рисование звезды *}

Unit GR_4;
Interface
Implementation
Begin
 writeln('Рисование звезды');
End.

Program gr_4;

Uses gr_4.pas; {* Эту строку можно удалить *}
Uses graph, crt; {* Подключаем внешние файлы *}
Var {* Необходимые переменные *}
  Gd : integer;
  Gm : integer;
  i  : integer;
Begin
  Gd := Detect;
  initgraph(Gd, Gm, '');
  line(150, 100, 200, 200);
  line(150, 100, 100, 200);
  line(100, 200, 190, 130);
  line(190, 130, 110, 130);
  line(110, 130, 200, 200);
  readkey; {* Ждем нажатия любой клавиши *}
  closegraph;
End.