do1;read*,k;n=k;do2 i=2,k**.5;j=n/i;do2 while(k/i*i==k);n=n-j;j=0;2 k=k/i;1 print'(i0)',n-n/k+1/k*n;end
Note that non-ascii characters in the above source code will be escaped (such as \x9f).
download
return to the top page