import Control.Applicative

main :: IO()
main = do
    _ <- getLine
    as <- map read . words <$> getLine
    bs <- map read . words <$> getLine
    putStrLn $ calcAns as bs
        where
            calcAns as bs
                | s + s2 > 0 = "No"
                | otherwise = "Yes"
                where
                    cs = zipWith (-) as bs
                    s = sum cs
                    s2 = sum (filter (> 0) cs) + foldr (const (+1)) 0 (filter (\a -> a < 0 && odd a) cs)
