program ABC_069_C_4adjacent
   implicit none
   integer N, i, countN2, countN4
   integer(8), allocatable :: a(:)
   read(*, *) N
   allocate(a(1: N))
   read(*, *) a(1: N)
   countN2 = 0
   countN4 = 0
   do i = 1, N
       if(mod(a(i), 2) == 0) then
	       countN2 = countN2 + 1
	   end if
	   if(mod(a(i), 4) == 0) then
	       countN4 = countN4 + 1
	   end if
   end do
   if(N/2 <= countN4) then
       write(*, *) 'Yes' 
   else if(N - 2*countN4 <= countN2 - countN4) then
       write(*, *) 'Yes'
   else
       write(*, *) 'No'
   end if
end program ABC_069_C_4adjacent