Изображение треугольника по заданным координатам вершин

{Составьте программу для изображения треугольника по заданным координатам
вершин.}
uses
  graph;
var
  gd, gm: integer;
  PathToDriver: string;
  xa,ya,xb,yb,yc,xc:integer;
 
begin
  write('Введите координаты 1-й точки: ');  readln(xa,ya);
  write('Введите координаты 2-й точки: ');  readln(xb,yb);
  write('Введите координаты 3-й точки: ');  readln(xc,yc);
  gd := detect; { highest possible resolution }
  gm := 0; { not needed, auto detection }
  PathToDriver := 'C:\PP\BGI'; { path to BGI fonts,
                                 drivers aren't needed }
  InitGraph(gd, gm, PathToDriver);
  if GraphResult <> grok then
    halt;
  { Проверка }
{  xa:=GetMaxX div 2;
  ya:=100;
  xb:=GetMaxX -100;
  yb:=GetMaxy div 2;
  xc:=100;
  yc:=GetMaxy div 2;}
 
  line(xa,ya,xb,yb);
  line(xb,yb,xc,yc);
  line(xc,yc,xa,ya);
  readln;
  CloseGraph; { restores the old graphics mode }
end.