Вычислить площадь треугольника

function Arccos (x : real) : real;
begin
Arccos := Arctan(Sqrt(1-sqr(x))/x);
end;
 
var
a,b,c,d,e,f,s:real;
x1, y1, x2, y2, x3, y3 : real;
temp_var:real;
//s:integer;
begin
 
write('Введите координаты 1 точки через пробел: ');
readln(x1,y1);
write('Введите координаты 2 точки через пробел: ');
readln(x2,y2);
write('Введите координаты 3 точки через пробел: ');
readln(x3,y3);
a:=sqrt(sqr(x2-x1)+sqr(y2-y1));
b:=sqrt(sqr(x3-x2)+sqr(y3-y2));
c:=sqrt(sqr(x1-x3)+sqr(y1-y3));
 
if (a <> b) and (a <> c) and (b<>c) then
begin
temp_var:= (a*a+c*c-b*b)/(2*a*c);
d:=Arccos((b*b+c*c-a*a)/(2*b*c));
e:=Arccos(temp_var);
f:=Arccos((a*a+b*b-c*c)/(2*a*b));
if (abs(d)<pi/2) and (abs(e)<pi/2) and (abs(f)<pi/2) then
begin
 
s:=(a*b*sin(f))/2;
writeln('Это разносторонний остроугольный треугольник!');
writeln('Его площадь=',s:0:2);
end
else
write('Это не разносторонний тупоугольный треугольник!');
end;
end.

if (abs(d)<pi/2) and (abs(e)<pi/2) and (abs(f)<pi/2) then
begin
 
s:=(a*b*sin(f))/2;
writeln('Это разносторонний остроугольный треугольник!');
writeln('Его площадь=',s:0:2);
end
end
else
write('Это не разносторонний тупоугольный треугольник!');
end.