Даны действительные числа a, b, c. Выяснить существует ли треугольник с длинами сторон a, b, c.

Var a, b, c:integer;

begin

writeln ('a=');

readln (a);

writeln ('b=');

readln (b);

writeln ('c=');

readln (c);

if (a+b>c) and (b+c>a) and (c+a>b) then writeln ('treugolinik suscestvuet') else writeln ('treugolinik ne suscestvurt');

readln;

end.