Даны вещественные положительные числа а, b, c. выяснить существует ли треугольник со сторонами a,b,c?
Var a,b,c:real; begin read(a,b,c); if (a+b>c) and (a+c>b) and (b+c>a) then write(true) else write(false) end.