Module _20190427

    Sub Main()

        Dim iCount As Integer = Console.ReadLine()

        Dim sValue() As String = Console.ReadLine().Split(" ")
        Dim sCost() As String = Console.ReadLine().Split(" ")

        Dim iMax As Integer = 0

        For i As Integer = 0 To iCount - 1

            If CInt(sValue(i)) - CInt(sCost(i)) > 0 Then

                iMax = iMax + CInt(sValue(i)) - CInt(sCost(i))

            End If

        Next

        Console.WriteLine(iMax)

    End Sub

End Module