while(a:?read(?-,?-,0))#0 do dispterms(round(float(4*a*elliptic_ec(1-(?read()/a)^2))));