Ответ:
Объяснение:
var a,b,c,p,s : real;
str : string;
begin
write('a = '); readln(a);
write('b = '); readln(b);
write('c = '); readln(c);
if (a + b > c) OR (a + c > b) or(a+c > a) then
begin
p:= (a + b + c) / 2;
s:= sqr(p * (p - a)* (p - b) * (p - c));
str := FloatToStrF(s);
end else
str := 'Треугольник не существует';
writeln(str);
end.