program main implicit none integer::n,i,x read*, n do i = 0, 28 if(n<=2**i) then x = i exit end if end do write(*,*) x stop end