Помогите, пожалуйста(Паскаль):  Даны действительные положительные числа 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.