import qualified Data.ByteString.Char8 as BC
import Data.Maybe (fromJust)
import Data.List
import Data.Array.IO

main = do
  n <- readLn :: IO Int
  a <- getIntListBC
  b <- getIntListBC
  let sa = sum a
      sb = sum b
      diff = sb - sa
  if diff == solve a b
    then putStrLn "Yes"
    else putStrLn "No"

solve :: [Int] -> [Int] -> Int
solve []     []     = 0
solve (a:as) (b:bs) = if a < b
                        then (div (b-a) 2) + solve as bs
                        else if a > b
                               then (a-b) + solve as bs
                               else solve as bs

bsToInt :: BC.ByteString -> Int
bsToInt = fst . fromJust . BC.readInt

getIntListBC :: IO [Int]
getIntListBC = map bsToInt . BC.words <$> BC.getLine
