import Data.List

toInt :: String -> Int
toInt = read :: String -> Int

main = do
  n <- toInt <$> getLine
  v <- map toInt . words <$> getLine
  c <- map toInt . words <$> getLine
  print . sum . filter (> 0) . map (\(x, y) -> x-y) $ zip v c
