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