PROGRAM MAIN IMPLICIT NONE REAL(8) :: N READ *, N PRINT *, ceiling(DLOG(N) / DLOG(2.0_8)) END PROGRAM MAIN