Для каждой тройки отрезков, из которых можно построить треугольник, найти площадь данного треугольника

if (a<b+c)and(b<a+c)and(c<a+b)

function Pl(a,b,c:real):real;
var p:real;
begin
p:=(a+b+c)/2;
Pl:=sqrt(p*(p-a)*(p-b)*(p-c))
end;

if (a<b+c+d)and(b<a+c+d)and(c<a+b+d)and (d<a+b+c)

uses crt;
function Tr(a,b,c:real):boolean;
begin
Tr:=(a<b+c)and(b<a+c)and(c<a+b)
end;
function Pl(a,b,c:real):real;
var p:real;
begin
p:=(a+b+c)/2;
Pl:=sqrt(p*(p-a)*(p-b)*(p-c))
end;
var a,b,c,d:real;
begin
clrscr;
writeln('Введите длины 4х отрезков');
readln(a,b,c,d);
if not Tr(a,b,c) then writeln('отрезки a,b,c не образуют треугольник')
else writeln('Площадь abc=',Pl(a,b,c):0:2);
if not Tr(a,b,d) then writeln('отрезки a,b,d не образуют треугольник')
else writeln('Площадь abd=',Pl(a,b,d):0:2);
if not Tr(a,c,d) then writeln('отрезки a,c,d не образуют треугольник')
else writeln('Площадь acd=',Pl(a,c,d):0:2);
if not Tr(b,c,d) then writeln('отрезки b,c,d не образуют треугольник')
else writeln('Площадь bcd=',Pl(b,c,d):0:2);
readln
end.