integer N
integer,allocatable,dimension(:)::A
integer cnt4,cnt2,cntodd
read*,N
allocate(A(N))
read*,A
cnt4=0;cnt2=0;cntodd=0
do i=1,N
  select case(mod(A(i),4))
    case(0)
      cnt4=cnt4+1
    case(2)
      cnt2=cnt2+1
    case default 
      cntodd=cntodd+1
  end select
end do
if(cnt2>0)cntodd=cntodd+1
print"(A)",trim(merge("Yes","No ",cntodd<=cnt4+1))
end