вообще не могу понять что не так. проходят пробные тесты,проходят тесты которые нашла в обсуждениях.
если не трудно может покидаете тесты, плииз...

var a,a1,a2,s1,s,ap,al,sm1p,sm2p,sm3p,smap,sm1l,sm2l,sm3l,smal,s2,s3:Integer;
begin
ReadLn(a);
a1:=a+1;
a2:=a-1;

ap:=a1 div 1000;
al:=a1 mod 1000;

sm1p:=ap div 100;
sm2p:=ap mod 100 div 10;
sm3p:=ap mod 10;
smap:=sm1p+sm2p+sm3p;

sm1l:=al div 100;
sm2l:=al mod 100 div 10;
sm3l:=al mod 10;
smal:=sm1l+sm2l+sm3l;

if smal=smap then Writeln('YES')
     else
     begin
     ap:=a2 div 1000;
     al:=a2 mod 1000;

     sm1p:=ap div 100;
     sm2p:=ap mod 100 div 10;
     sm3p:=ap mod 10;
     smap:=sm1p+sm2p+sm3p;

     sm1l:=al div 100;
     sm2l:=al mod 100 div 10;
     sm3l:=al mod 10;
     smal:=sm1l+sm2l+sm3l;
     if smal=smap then Writeln('YES')
             else
                  WriteLn('NO');
     end;
end.