1 read*,k;n=k;do i=2,k**.5;j=n/i;do while(mod(k,i)<1);n=n-j;j=0;k=k/i;enddo;enddo;print'(i0)',n-n/k+1/k*n;goto1;end