main :: IO ()
main = do
  n <- (read :: String -> Int) <$> getLine
  vs <- map (read :: String -> Int) . words <$> getLine
  cs <- map (read :: String -> Int) . words <$> getLine
  print $ ans vs cs

ans :: [Int] -> [Int] -> Int
ans vs cs = sum $ zipWith (\x y -> if x > y then x-y else 0) vs cs