Пусть даны координаты трех точек на плоскости. Если они могут быть вершинами разностороннего остроугольного треугольника, вычислите его площадь — Pascal(Паскаль)

uses crt;
function Dlina(x1,y1,x2,y2:real):real;
begin
Dlina:=sqrt(sqr(x1-x2)+sqr(y1-y2));
end;
var ax,ay,bx,by,cx,cy,a,b,c,p,s:real;
begin
clrscr;
writeln('Введите координаты Х,У трех точек:');
readln(ax,ay,bx,by,cx,cy);
a:=Dlina(ax,ay,bx,by);
b:=Dlina(bx,by,cx,cy);
c:=Dlina(ax,ay,cx,cy);
if(a<=abs(b-c))or(a>=b+c)then
write('Это не треугольник!')
else
 begin
  if(a=b)or(a=c)or(b=c) then
  write('Это не разносторонний треугольник!')
  else
   begin
    writeln('Это разносторонний треугольник!');
    p:=(a+b+c)/2;
    s:=sqrt(p*(p-a)*(p-b)*(p-c));
    write('его площадь=',s:0:2);
   end;
 end;
readln
end.