Построить треугольник с вершинами (100,100), (150,100), (80,170) — Pascal(Паскаль)

Program Grafik;

Uses Crt, Graph;

Var
  GraphDriver, Mode: integer;

Begin
  GraphDriver := Detect;
  InitGraph(GraphDriver, Mode, '');
  SetBkColor(Black);
  SetColor(white);
  MoveTo(100, 100); { risyem osi koordinat }
  LineTo(150, 100);
  LineTo(80, 170);
  LineTo(100, 100);
  While not keypressed do; { poka ne nagata klavisha gdem }
  CloseGraph;

End.