С клавиатуры вводят 3 числа. Определить существует ли треугольник с такими сторонами....

Question

С клавиатуры вводят 3 числа. Определить существует ли треугольник с такими сторонами. Если да-найти его площадь. Если нет-вывести сообщение об этом на экран.

Answer 1

Var
a,b,c:integer;
p:real;
begin
readln(a,b,c);
p:=a+b+c;
p:=p/2;
if (a+b                                                    else writeln(sqrt(p*(p-a)*(p-b)*(p-c)):0:0);
end.