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
Note that non-ascii characters in the above source code will be escaped (such as \x9f).