Построение треугольника по трем точкам — Pascal(Паскаль)

uses crt, graph;

var
  x, x1, x2, y, y1, y2, gd, gm: integer;
  a, b, c: real;

begin
  clrscr;
  writeln('Введите координаты первой точки (X и Y) после каждой коор. ENTER');
  readln(x);
  readln(y);
  writeln('Введите координаты второй точки (X1 и Y1) после каждой коор. ENTER');
  readln(x1);
  readln(y1);
  writeln('Введите координаты третьей точки (X2 и Y2) после каждой коор. ENTER');
  readln(x2);
  readln(y2);
  a := sqrt((x - x1) * (x - x1) + (y - y1) * (y - y1));
  b := sqrt((x1 - x2) * (x1 - x2) + (y1 - y2) * (y1 - y2));
  c := sqrt((x2 - x) * (x2 - x) + (y2 - y) * (y2 - y));
  if (a + b > c) and (c + b > a) and (a + c > b) then
  begin
    writeln('Построение треугольника провести можно ');
    initgraph(gd, gm, 'c:\bp\bgi');
    line(x, y, x1, y1);
    line(x1, y1, x2, y2);
    line(x2, y2, x, y);
    delay(3000);
  end
  else
    writeln('Треугольник не построится ');

end.