program if_9-

uses crt-

var a,b,c:integer-

begin

clrscr-

writeln (‘Введите стороны треугольника -a,b,c’)-

readln (a,b,c)-

if (a&gt-0) and (b&gt-0) and (c&gt-0) then

if (a&lt-b+c) and (b&lt-c+a) and (c&lt-a+b) then

writeln (‘треугольник существует’)

else

writeln (‘треугольник не существует’)

else

writeln (‘треугольник не существует’)-

Readln-

end.