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.