Floyd's triangle: Difference between revisions

Content added Content deleted
No edit summary
Line 713:
<lang unicon>procedure main(a)
n := integer(a[1]) | 5
w := *string((n*(n+1))/2)+1
c := create seq()
every i := 1 to n do {