14 lines
254 B
Text
14 lines
254 B
Text
get "libhdr"
|
|
|
|
let pascal(n) be
|
|
for i=0 to n-1
|
|
$( let c = 1
|
|
for j=1 to 2*(n-1-i) do wrch(' ')
|
|
for k=0 to i
|
|
$( writef("%I3 ",c)
|
|
c := c*(i-k)/(k+1)
|
|
$)
|
|
wrch('*N')
|
|
$)
|
|
|
|
let start() be pascal(8)
|