program main implicit none real :: X, Y, L read *, X read *, Y read *, L if (X == 0) then print *, ceiling(abs(Y) / L) else print *, ceiling(abs(Y) / L) + 1 + ceiling(abs(X) / l) end if end program main