Написать программу на pascal, которая определяет, существует ли треугольник со сторонами

program raf105;

var

 a,b,c: integer;

 x: boolean;

begin

 x:= True;

 write('Введите 3 числа через пробел: ');

 readln(a,b,c);

 if a+b lt; c

   then x:= False;

 if a+c lt; b

   then x:= False;

 if b+c lt; a

   then x:= False;

 if x

   then writeln('Треугольник существует')

   else writeln('Треугольника не существует');

end.

PascalABC 3.4.2