input "number of rows? ";r
for i = 0 to r - 1
  c = 1
  print left$("                          ",(r*2)-(i*2));
  for k = 0 to i
    print using("####",c);
    c = c*(i-k)/(k+1)
  next
  print
next