Imports System          

Public Module Modulel

    Public Sub Main()

        Dim x(5)As string

        Dim y(5)As string

        Dim z(5)As string

        Dim a As double

    For a=0 to 4

        Console.WriteLine("Nombre")

        x(a)=Console.ReadLine

        Console.WriteLine("Edad")

        y(a)=Console.ReadLine

        Console.WriteLine("Domicilio")

        z(a)=Console.ReadLine

    Next a

    Console.WriteLine("Nombres")

    For a=0 to 4

    Console.WriteLine(x(a))

Next a

Console.WriteLine("Edades")

For a=0 to 4

    Console.WriteLine(y(a))

Next a

Console.WriteLine("Domicilios")

For a=0 to 4

    Console.WriteLine(z(a))

Next a

End Sub

End Module