Imports System
Public Class exercise83
Public Shared Sub Main()
Dim n, ancho, alto As Integer
Dim row, column As Integer
Console.Write("Introduce un número: ")
n = Convert.ToInt32(Console.ReadLine())
Console.Write("Introduce la anchura: ")
ancho = Convert.ToInt32(Console.ReadLine())
alto = ancho
For row = 0 To alto - 1
For column = 0 To ancho - 1
Console.Write(n)
Next
Console.WriteLine()
ancho -= 1
Next
End Sub
End Class