read*,l,m,n;do i=l*n,m*n,m-l;j=99;1 j=j-1;if(mod(i,j)+mod(n,j)>0)goto1 print'(i0a1$)',i/j,47-j/n*15;if(j<n)print'(i0" "$)',n/j;enddo;end
Note that non-ascii characters in the above source code will be escaped (such as \x9f).
download
return to the top page