Imports System

Public Module Module1

    Public Sub Main()

        Dim nNumbers(4) as decimal

        Dim nSum as decimal

        dim i as integer

        For i = 0 to 4

        nNumbers(i) = Console.ReadLine()

    Next

    For i = 0 to 4

    Console.write(nNumbers(i))

Next

For i = 0 to 4

'increase nSum by nNumbers(i)

nSum += nNumbers(i)

console.writeLine("Running Sum" & nSum)

next

Console.WriteLine("Final Sum" & nSum)

    End Sub

End Module