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

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.