main=do
 n<-readLn
 a<-map (\x->mod(read x)4).words<$>getLine
 putStrLn(f(sum[1|x<-a,x==0])(sum[1|x<-a,x==2])n) 
  where f n4 n2 na = if n2==0 then(if(quot na 2)>n4 then"No"else"Yes")else(if(quot(na-n2+1)2)>n4 then"No"else"Yes")