Imports System

Public Module Module1

    Public Sub Main()

        dim n1 as integer

        dim sum as decimal

        sum = 0

        Do 

            n1 = Console.ReadLine()

            sum = n1 + sum

        Loop until n1 = -1

        COnsole.WriteLine(sum)

    End Sub

End Module