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<c) or (a+c<b) or (b+c<a) then writeln('impossible')
                                                    else writeln(sqrt(p*(p-a)*(p-b)*(p-c)):0:0);
end.