Floyd's triangle   lists the natural numbers in a right triangle aligned to the left where

 the first row is   1     (unity)
 successive rows start towards the left with the next number followed by successive naturals listing one more number than the line above.


The first few lines of a Floyd triangle looks like this:

 1
 2  3
 4  5  6
 7  8  9 10
11 12 13 14 15



Task

 Write a program to generate and display here the first   n   lines of a Floyd triangle. 
(Use   n=5   and   n=14   rows).
 Ensure that when displayed in a mono-space font, the numbers line up in vertical columns as shown and that only one space separates numbers of the last row.


Public Sub Main()
Dim siCount, siNo, siCounter As Short
Dim siLine As Short = 1
Dim siInput As Short[] = [5, 14]
 
For siCount = 0 To siInput.Max
  Print "Floyd's triangle to " & siInput[siCount] & " lines"
  Do
    Inc siNo
    Inc siCounter
    Print Format(siNo, "####");
      If siLine = siCounter Then 
        Print 
        Inc siLine
        siCounter = 0
      End If
    If siLine - 1 = siInput[siCount] Then Break
  Loop
  siLine = 1
  siCounter = 0
  siNo = 0
  Print
Next
 
End