#define x a[i] var a:array[byte]of byte;i,k,m,n:comp;begin repeat read(n);a[98]:=7;for n:=5to n do begin for i:=1to 99do begin k:=k mod n*10+x;x:=k div n end;k:=0;i:=99;repeat k:=k div 10+x*(n*4-2);x:=k mod 10;if x>0then m:=i;i:=i-1until i<1end;for i:=m to 99do begin write(x);x:=0end;writeln until 0>0end.