byte a(99);do1;a=0;a(99)=1;read*,n;do2 n=1,n
do3 i=1,99;k=mod(k,n)*10+a(i);3 a(i)=k/n
k=0;do2 i=99,1,-1;k=k/10+a(i)*(n*4-2);a(i)=mod(k,10);2 if(a(i)>0)m=i
1 print'(99i0)',a(m:);end