1 read*,n;x=500;m=0;2 i=m<n;m=m+i*2*x-x+.5;i=m<n;j=m>n;print'(i0xa1)',m,61-i+j;x=x/2;goto(2)i+j;print*;goto1;end