12 lines
214 B
Turing
12 lines
214 B
Turing
proc pascal (n : int)
|
|
for i : 0 .. n
|
|
var c := 1
|
|
for k : 0 .. i
|
|
put c : 4 ..
|
|
c := c * (i - k) div (k + 1)
|
|
end for
|
|
put ""
|
|
end for
|
|
end pascal
|
|
|
|
pascal(5)
|