Imports System
Public Module Module1
Public Sub Man()
Dim sum As Integer
While True
Dim no As Integer = Console.ReadLine()
If no = -1 Then
Exit While
Else
sum += no
End If
End While
Console.WriteLine(sum)
End Sub
Public Sub Main()
sum = math.max(sum, no)
End Module