Выяснить можно ли построить треугольник с тремя данными сторонами. условие 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.

// PascalABC.NET 3.2, сборка 1389 от 01.03.2017
// Внимание! Если программа не работает, обновите версию!
begin
var a:=ReadReal();
var b:=ReadReal();
var c:=ReadReal();
writeln((a<c+b)and(b<c+a)and(c<a+b)? 'существует':'не существует');
end.