Imports System

Public Module Module1

    Public Sub Main()

        Dim Records() As Integer

        For Index = 0 To 6 

        Records(Index) = Console.ReadLine() 

    Next

    End Sub

End Module