program if_9-
uses crt-
var a,b,c:integer-
begin
clrscr-
writeln (‘Введите стороны треугольника -a,b,c’)-
readln (a,b,c)-
if (a>-0) and (b>-0) and (c>-0) then
if (a<-b+c) and (b<-c+a) and (c<-a+b) then
writeln (‘треугольник существует’)
else
writeln (‘треугольник не существует’)
else
writeln (‘треугольник не существует’)-
Readln-
end.