20 lines
292 B
Text
20 lines
292 B
Text
numfmt 0 4
|
|
proc pascal n . .
|
|
r[] = [ 1 ]
|
|
for i to n
|
|
rn[] = [ ]
|
|
l = 0
|
|
for j to n - len r[]
|
|
write " "
|
|
.
|
|
for r in r[]
|
|
write r
|
|
rn[] &= l + r
|
|
l = r
|
|
.
|
|
print ""
|
|
rn[] &= l
|
|
swap r[] rn[]
|
|
.
|
|
.
|
|
pascal 13
|