do1;read*,i,j,k;n=1;2 if(and(j,1)>0)n=mod(1_8*n*i,k);i=mod(1_8*i*i,k);j=j/2;if(j>0)goto2;1 print'(i0)',n;end