Пусть даны координаты трёх точек на плоскости. Если они могут быть вершинами прямоугольного треугольника, вычислите его площадь

Program treyg;

uses crt;

var x1, y1, x2, y2, x3, y3 : integer;

a, b, c, s, p : real;

begin

write ('Введите координаты первой точки: ');

Readln (x1, y1);

write ('Введите координаты второй точки: ');

Readln (x2, y2);

write ('Введите координаты третьей точки: ');

Readln (x3, y3);

a:=sqrt (sqr (x1-x2) + sqr (y1-y2));

b:=sqrt (sqr (x2-x3) + sqr (y2-y3));

c:=sqrt (sqr (x3-x1) + sqr (y3-y1));

if ((a+b) >c) and ((b+c) >a) and ((c+a) >b) then

writeln ('Данные координаты не могут являться вершинами треугольника')

else

begin

p: = (a+b+c) / 2;

s:=sqrt (p * (p-a) * (p-b) * (p-c));

Writeln ('Площадь треугольника ', s);

end

end.