VAR N:LONGINT;
FUNCTION FORTUNE(X:LONGINT):BOOLEAN;
VAR S1,S2,I: INTEGER;
BEGIN
       S1:=0;
       FOR I:=1 TO 3 DO
       BEGIN
            S1:=S1+X MOD 10;
            X:=X DIV 10
       END;
       S2:=0;
       FOR I:=1 TO 3 DO
       BEGIN
            S2:=S2+X MOD 10;
            X:=X DIV 10
       END;
       FORTUNE:=S1=S2
END;
BEGIN
       ASSIGN(INPUT,'INPUT.TXT');
       RESET(INPUT);
       ASSIGN(OUTPUT,'OUTPUT.TXT');
       REWRITE(OUTPUT);
       READ(N);
       IF FORTUNE(N-1) OR FORTUNE(N+1) THEN WRITELN('YES') ELSE WRITELN('NO')
END.