1 read*,a,b;do p=8e3,2,-2;x=a*6.2832+(p-4+3/p)/p*(1-b*b/a/a)*x;enddo;print'(i0)',nint(x);goto1;end