main = do
  getLine
  as <- map read . words <$> getLine
  bs <- map read . words <$> getLine
  let x = sum $ filter (0 <) $ zipWith (-) as bs
      y = sum $ map (`div` 2) $ filter (0 <) $ zipWith (-) bs as
  putStrLn $ if x <= y then "Yes" else "No"