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