Imports System

​

Public Module Module1

​

    Public Sub Main()

        Dim grades(3) as Integer

        For i = 0 to 3

            grades(i) = console.ReadLine()

        next

​

        For i = 0 to 3

            Console.writeline(grades(i))

        next

    End Sub

End Module

​