program z3;
uses crt;
var a,b,c,p:integer;
s:real;
begin
read(a,b,c);
if (a<b+c) and (b<c+a) and (c<b+a) then
begin
p:=a+b+c;
s:=sqrt(p*(p-a)*(p-b)*(p-c));
writeln('площадь=',s:5:2);
writeln('периметр=',p);
end
else
writeln('треугольник не возможен');
end.
uses crt;
var
a, b, c: integer;
begin
write ('Введите длины сторон: '); readln (a,b,c);
if (a < b+c) and (b < a+c) and (c < a+b) then
writeln ('Треугольник существует.')
else writeln ('Треугольник не существует.');
end.
