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

function trg(a,b,c:real):boolean;
begin
result:=(a+b>c)and(b+c>a)and(a+c>b);
end;
function perimetr(a,b,c:real):real;
begin
result:=a+b+c;
end;
function ploshad(a,b,c:real):real;
var p:real;
begin
p:=(a+b+c)/2 ;
result:=sqrt(p*(p-a)*(p-b)*(p-c));
end;
var a,b,c,d:real;
begin
writeln('Введите длины четырех отрезков');
readln(a,b,c,d);
if trg(a,b,c) then
 begin
  writeln('ABC - треугольник');
  writeln('Периметр=',perimetr(a,b,c):0:2);
  writeln('Площадь=',ploshad(a,b,c):0:2);
 end
else writeln('ABC не треугольник');
if trg(a,b,d) then
 begin
  writeln('ABD - треугольник');
  writeln('Периметр=',perimetr(a,b,d):0:2);
  writeln('Площадь=',ploshad(a,b,d):0:2);
 end
else writeln('ABD не треугольник');
if trg(a,c,d) then
 begin
  writeln('ACD - треугольник');
  writeln('Периметр=',perimetr(a,c,d):0:2);
  writeln('Площадь=',ploshad(a,c,d):0:2);
 end
else writeln('ACD не треугольник');
if trg(b,c,d) then
 begin
  writeln('BCD - треугольник');
  writeln('Периметр=',perimetr(b,c,d):0:2);
  writeln('Площадь=',ploshad(b,c,d):0:2);
 end
else writeln('BCD не треугольник');
end.