main :: IO ()
main = do
  getLine :: IO ()
  vs <- map read . words <$> getLine :: IO [Int]
  cs <- map read . words <$> getLine :: IO [Int]
  let
    s = sum . map (max 0) $ zipWith subtract cs vs
  print s
