main :: IO ()
main = do
  _ <- getLine
  ls <-  fmap read . words <$> getLine :: IO [Int]
  putStrLn $ if solve ls then "Yes" else "No"

solve :: [Int] -> Bool
solve ls = if n2 >= 2 then (n - n2 - n4) < n4  + 1 else (n - n4) <= n4 + 1 where
  n = length ls
  n4 = length $ filter (\a -> a `mod` 4 == 0) ls :: Int
  n2 = length  (filter even ls) - n4
