13 lines
274 B
Text
13 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
|