main = do
  n <- readLn
  as <- map read . words <$> getLine
  let o = length $ filter odd as
      m = length $ filter (\x -> x `mod` 4 == 0) as
  putStrLn $ if o <= m || o+m == n && o-1==m then "Yes" else "No"