Построение звезды — Pascal(Паскаль)

uses graph, crt;

var
  gd, gm: integer;

begin
  initgraph(gd, gm, 'c:\bp\bgi');
  setcolor(15);
  line(220, 240, 320, 100);
  line(320, 100, 420, 240);
  line(220, 140, 420, 140);
  line(220, 140, 420, 240);
  line(420, 140, 220, 240);
  delay(3000);

end.