По введенным координатам вершин треугольника определите является ли данный треугольник прямоугольным

const d=0.001;
var ax,ay,bx,by,cx,cy:real;
    a,b,c:real;
begin
  write('введите координаты 1,2,3 точек: ');readln(ax,ay,bx,by,cx,cy);
  a:=sqrt(sqr(ax-bx)+sqr(ay-by));
  b:=sqrt(sqr(bx-cx)+sqr(by-cy));
  c:=sqrt(sqr(cx-ax)+sqr(cy-ay));
  if (abs(a*a-b*b-c*c)<d)or(abs(b*b-c*c-a*a)<d)or(abs(c*c-a*a-b*b)<d) 
     then writeln('S = ',abs(((ax-cx)*(by-cy)-(bx-cx)*(ay-cy))/2):0:4)
     else writeln('P = ',a+b+c:0:4)
end.

uses crt;
function pryam(x1,y1,x2,y2,x3,y3:real):boolean;
begin
pryam:=(x2-x1)*(x3-x1)+(y2-y1)*(y3-y1)=0;
end;
function dlina(x1,y1,x2,y2:real):real;
begin
dlina:=sqrt(sqr(x1-x2)+sqr(y1-y2));
end;
var x1,y1,x2,y2,x3,y3,p,s:real;
begin
writeln('Введите координаты вершин треугольника');
readln(x1,y1,x2,y2,x3,y3);
if pryam(x1,y1,x2,y2,x3,y3)or pryam(x2,y2,x3,y3,x1,y1)
or pryam(x3,y3,x1,y1,x2,y2) then
 begin
  writeln('Треугольник прямоугольный');
  s:=abs((x1-x3)*(y2-y3)-(x2-x3)*(y1-y3))/2;
  write('Площадь=',s:0:2);
 end
else
 begin
  writeln('Треугольник не прямоугольный');
  p:=dlina(x1,y1,x2,y2)+dlina(x2,y2,x3,y3)+dlina(x3,y3,x1,y1);
  write('Периметр=',p:0:2);
 end;
end.