(паскаль): даны действительные положительные числа x, y, z. выяснить, существует ли треугольник с длинами сторон x, y, z. (вроде бы всё правильно, но что-то не получается)

вроде так...

PRogram Z1;

uses crt;

var x,a,b,c:integer;

begin

  ClrScr;

  readln (a);

  readln (b);

  readln (c);

  if (A+B) > C then

   if (A+C) > B then

    if (B+C) > A then begin

                        write ('Yes');

                        x:=x+1;

                      end;

  if x=0 then writeln ('No');

  readln

end.