Помогите

[SPARTA]

Помогите пожалуйста решить задачу,
Даны отрески a, b, c, d. Для каждой тройки отрезков, из которых можно построить треугольник, напечатайте площадь данного треугольника. Воспользуйтесь функциями определения возможности создания треугольника и вычисления площади.

[Карась]

Площадь можно найти через полупериметр. Известная также как формула Герона.

[puporev]

Решение на уровне 7 класса.

uses crt;
var a,b,c,d:real;
function Treug(x,y,z:real):boolean;
begin
if (x+y<=z)or(x+z<=y)or(y+z<=x)then
Treug:=false;
end;
function Plosh(x,y,z:real):real;
var p,s:real;
begin
p:=(x+y+z)/2;
Plosh:=sqrt(p*(p-x)*(p-y)*(p-z));
end;
begin
clrscr;
write('a=');readln(a);
write('b=');readln(b);
write('c=');readln(c);
write('d=');readln(d);
writeln;
if Treug(a,b,c) then
writeln('Sabc=',Plosh(a,b,c):0:2)
else writeln('Treugolnik abc ne sushestvuet!');
writeln;
if Treug(a,b,d) then
writeln('Sabd=',Plosh(a,b,d):0:2)
else writeln('Treugolnik abd ne sushestvuet!');
writeln;
if Treug(b,c,d) then
writeln('Sbcd=',Plosh(b,c,d):0:2)
else writeln('Treugolnik bcd ne sushestvuet!');
readln
end.