integer a(99);1 a=0;a(99)=1;read*,n;do n=1,n
do i=1,99;k=mod(k,n)*10+a(i);a(i)=k/n;enddo
k=0;do i=99,1,-1;k=k/10+a(i)*(n*4-2);a(i)=mod(k,10);if(a(i)>0)m=i;enddo
enddo;print'(99i0)',a(m:);goto1;end