Module Module1

Sub Main()
Dim X As Integer
X = 0
For A = 5 To 1 Step -1
Console.Write(Space(X))
For B = A To 1 Step -1
Console.Write(” “)
Console.Write(A)
Next B
X = X + 1
Console.WriteLine(” “)
Next A
End Sub

End Module