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

nsum += nnumbers(i)

console.WriteLine("running sum" & nsum)

    End Sub

End Module