main :: IO ()
main = do
  n <- readLn
  vs <- readInts
  cs <- readInts
  print $ solve n vs cs

solve :: Int -> [Int] -> [Int] -> Int
solve _ vs cs = sum . filter (> 0) $ zipWith (-) vs cs

readInts :: Read a => IO [a]
readInts = map read . words <$> getLine
