Imports System

Public Module Module1

    Public Sub Main()

        Dim nNumbers(4) as decimal

        Dim i as integer

        Console.WriteLine("5 Numbers please")

            For i = 0 to 4

            nNumbers(i) = Console.ReadLine()

        Next

    Console.Write(nNumbers (0) + nNumbers(1) + nNumbers(2) + nNumbers(3) + nNumbers(4) )

    End Sub

End Module