read*,l,m,n do2 i=l*n,m*n,m-l do1 j=1,99 1 if(i/j*j/i*n/j*j==n)k=j print'(i0a1$)',i/k,47-k/n*15 2 if(k<n)print'(i0h $)',n/k end
Note that non-ascii characters in the above source code will be escaped (such as \x9f).
download
return to the top page