implicit none real(8) X,Y,R read(*,*) X,Y R=X*X+Y*Y R=sqrt(R) write(*,*) int(R*2+1) end