read*,n;m=n**.5/.7;do i=1-m,0;print'(99(i0x))',(j*(j+1)/2+i,j=1-i,m-(m*(m+1)/2+i-1)/n);enddo;end
Note that non-ascii characters in the above source code will be escaped (such as \x9f).
download
return to the top page