Склавиатуры вводят 3 числа. определить существует ли треугольник с такими сторонами. если да-найти его площадь. если нет-вывести сообщение об этом на экран.
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.
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.