Если точки могут принадлежать остроугольному треугольнику, вычислите его площадь

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;
end.

uses crt;
function D(x1,y1,x2,y2:real):real;
begin
D:=sqrt(sqr(x1-x2)+sqr(y1-y2));
end;
function S(x1,y1,x2,y2,x3,y3:real):real;
begin
S:=abs(((x1-x3)*(y2-y3)-(x2-x3)*(y1-y3))/2);
end;
var x1,y1,x2,y2,x3,y3:real;
    a,b,c,mx,sr,mn:real;
begin
clrscr;
writeln('Введите координаты вершин треугольника:');
readln(x1,y1,x2,y2,x3,y3);
a:=D(x1,y1,x2,y2);
b:=D(x2,y2,x3,y3);
c:=D(x1,y1,x3,y3);
if(a=b)or(a=c)or(b=c)then writeln('Треугольник не разносторонний')
else
 begin
  if a>b then mx:=a else mx:=b;
  if c>mx then mx:=c;
  if a<b then mn:=a else mn:=b;
  if c<mn then mn:=c;
  sr:=a+b+c-mx-mn;
  if mx*mx>=mn*mn+sr*sr then writeln('Треугольник не остроугольный')
  else
   begin
    writeln('Треугольник разностонний остроугольный');
    write('Его площадь=',S(x1,y1,x2,y2,x3,y3):0:2)
   end;
 end;
readln
end.