do1;read*,x;n=mod(x,2.)>.5;n=x+n*.5;1 print'(i0)',n;end