10 lines
186 B
Text
10 lines
186 B
Text
10 let row = 12
|
|
20 for i = 0 to row
|
|
30 let c = 1
|
|
40 print tab (37-i*3);
|
|
50 for k = 0 to i
|
|
60 print using " #### ";c;
|
|
70 let c = c*(i-k)/(k+1)
|
|
80 next
|
|
90 print
|
|
100 next
|