read*,m,n;n=m-n-2;print'(99999a1)',((((49-0**abs((i-j)*(i-k)*(i-l)),i=1,m),10,j=k+1,m),k=l+1,m-1),l=n,n*(m-2));end
Note that non-ascii characters in the above source code will be escaped (such as \x9f).
download
return to the top page