Помогите, пожалуйста

Вроде так… 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'); readlnend.