12 lines
274 B
Text
12 lines
274 B
Text
procedure main(a)
|
|
n := integer(a[1]) | 5
|
|
w := ((n*(n-1))/2)-n
|
|
c := create seq()
|
|
every row := 1 to n do {
|
|
every col := 1 to row do {
|
|
width := *(w+col)+1
|
|
every writes(right(@c,width))
|
|
}
|
|
write()
|
|
}
|
|
end
|