real::x,y read *,x,y print '(i0)',CEILING(2.0*sqrt(x*x+y*y)+1.0) end