Imports System

Public Module Module1

    Public Sub Main()

        dim n(4) as integer 

        dim i, j as integer

        Console.WriteLine("input a number:")

        n(4) = console.readline()

        for i = 0 to 4

        i = n(4) + 3

    next

       for j = 0 to 4

    console.WriteLine("Element({0}) = {1}" ,j , n(j))

    next

    End Sub

End Module