составьте программу определяющую могут ли три числа 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Можно составить треугольник