{-# LANGUAGE BangPatterns, MultiWayIf #-}

import Control.Applicative
import Control.Monad
import Data.List

f (a, b) acc
    | a < b      = (b - a + 1) `div` 2 + acc
    | otherwise  = acc

main :: IO ()
main = do
    n <- readLn :: IO Int
    as <- fmap read . words <$> getLine :: IO [Int]
    bs <- fmap read . words <$> getLine :: IO [Int]
    let k  = sum bs - sum as
    let ak = foldr f 0 (zip as bs)
    if ak <= k
        then putStrLn "Yes"
        else putStrLn "No"