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