8 lines
295 B
Text
8 lines
295 B
Text
|
procedure main()
|
||
|
|
lim := 13
|
||
|
|
wid := 5
|
||
|
|
every writes(right("* |" | (1 to lim) | "\n",wid)|right("\n",wid*(lim+1),"_")) # header row and separator
|
||
|
|
every (i := 1 to lim) &
|
||
|
|
writes(right( i||" |" | (j := 1 to lim, if j < i then "" else i*j) | "\n",wid)) # table content and triangle
|
||
|
|
end
|