program nnn;
var x,y:longint;
function happy(x:longint):boolean;
var a,b,c,d,e,f:byte;
begin
a:=x div 100000;
b:=(x div 10000) mod 10;
c:=(x div 1000)mod 10;
d:=(x div 100) mod 10;
e:=(x div 10) mod 10;
f:=x mod 10;
end;
begin
write('vv');
readln(x);
if happy(x) then writeln('sh') else writeln('ne sh');
y:=x;
repeat
y:=y+1;
until happy(y);
writeln('sh bil bydet cherez ',y-x-1,'biletov');
end.