Составьте программу определяющую могут ли три числа a, b, c является длинами сторон треугольника

Var

a, b, c:real;

begin

Write ('Введите через пробел длины трех сторон: ') ;

Readln (a, b, c) ;

if (a+b>c) and (a+c>b) and (b+c>a) then

Writeln ('Можно составить треугольник')

else

Writeln ('Нельзя составить треугольник')

end.

Тестовое решение:

Введите через пробел длины трех сторон: 2 6 9

Нельзя составить треугольник

Введите через пробел длины трех сторон: 3 4 5

Можно составить треугольник