i=1;1 read*,m;n=m/9;m=m-10*n;if(i==m)j=n;if(i==n)j=m;i=j;print'(i1)',i;goto1;end
Note that non-ascii characters in the above source code will be escaped (such as \x9f).
download
return to the top page