program main implicit none real x,y read(*,*)x,y if(sqrt(x**2+y**2)-aint(sqrt(x**2+y**2))==0)then write(*,*)ceiling(sqrt(x**2+y**2)*2)+1 else write(*,*)ceiling(sqrt(x**2+y**2)*2) endif end program main