var i,k,n:word=9;begin repeat i:=i+1;n:=i;repeat k:=n mod 10;n:=n div 10until abs(k-n mod 10)<6;if n<1then writeln(i)until i>9999end.