Выполнение граф построений — Pascal(Паскаль)

uses graph, crt;

var
  gd, gm: integer;

begin
  initgraph(gd, gm, 'c:\bp\bgi');
  LINE(150, 100, 67, 100);
  LINE(67, 100, 102, 68);
  LINE(102, 68, 150, 100);
  floodfill(100, 90, 15);
  delay(2000);
  clearviewport;
  bar(73, 49, 141, 109);
  delay(2000);
  clearviewport;
  LINE(73, 49, 103, 79);
  LINE(103, 79, 92, 120);
  LINE(92, 120, 50, 120);
  LINE(50, 120, 31, 79);
  LINE(31, 79, 73, 49);
  floodfill(90, 90, 15);
  delay(2000);
  clearviewport;
  LINE(73, 49, 111, 49);
  LINE(111, 49, 132, 71);
  LINE(132, 71, 111, 93);
  LINE(111, 93, 73, 93);
  LINE(73, 93, 52, 71);
  LINE(52, 71, 73, 49);
  floodfill(100, 90, 15);
  repeat
    ;
  until keypressed;
  closegraph;

end.