12 lines
266 B
Text
12 lines
266 B
Text
sequence row = {}
|
|
for m = 1 to 13 do
|
|
row = row & 1
|
|
for n=length(row)-1 to 2 by -1 do
|
|
row[n] += row[n-1]
|
|
end for
|
|
printf(1,repeat(' ',(13-m)*2))
|
|
for i=1 to length(row) do
|
|
printf(1," %3d",row[i])
|
|
end for
|
|
puts(1,'\n')
|
|
end for
|