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

program treyg;uses crt;var x1,y1,x2,y2,x3,y3 : integer;a,b,c,s,p : real;beginwrite('Введите координаты первой точки: ');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) thenwriteln('Данные координаты не могут являться вершинами треугольника')else beginp:=(a+b+c)/2;s:=sqrt(p*(p-a)*(p-b)*(p-c));Writeln('Площадь треугольника ',s);endend.