program shift_only
  implicit none
  integer :: n, a(200) = 0, i
  read(*,*) n
  read(*,*) a(1:n)
  do i = 0, 50
    if (any(mod(a(1:n),2) == 1)) then
      write(*,'(i0)') i
      stop
    end if
    a(1:n) = a(1:n)/2
  end do
end program shift_only