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