Написать алгоритм проверки условия:могут ли три данных числа быть длинами сторон треугольника

Var   a,b,c:real;BeginWrite('a = ');ReadLn(a);Write('b = ');ReadLn(b);Write('c = ');ReadLn(c);if (a<b+c)and(b<c+a)and(c<a+b) then WriteLn('Треугольник ABC существует')else WriteLn('Треугольник ABC не существует');End.