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

Var
   a,b,c:real;
Begin
Write('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.