Imports System

Public Module Module1

    Dim no as Integer, names as String

    Public Sub Main()

        Console.Write("INPUT NUMBER: ")

        no = console.ReadLine

        Console.Write("INPUT NAME: ")

        names = Console.ReadLine

        Console.WriteLine("-------------------")

        For ctr As Integer = 1 To no

        Console.WriteLine(names)

    Next

    End Sub

End Module