Выяснить можно ли построить треугольник с тремя данными сторонами.Условие b+с>а и а+с>b иа+b>с. Стороны вводятся с клавиатуры.В паскале

 Var A,B,C:real;
 Begin
 WriteLn('Введите длины сторон треугольника');
 ReadLn(A,B,C);
 if (A<C+B)and(B<C+A)and(C<A+B) then WriteLn('Треугольник существует')
 else WriteLn('Треугольник построить нельзя')
 End.