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