Imports System

Public Module Module1

    Public Sub Main()

        Dim sText(3) as string

        For i = 0 to 3

        stext(i) = console.ReadLine()

        Next 

        For i = 0 to 3

       console.writeLine(stext(i))

        Next 

    End Sub

End Module