input "How much rows would you like? "; n
dim a$(n)

for i=  0 to n
       c = 1
       o$ =""
       for k =0 to i
             o$ =o$ ; c; " "
             c =c *(i-k)/(k+1)
       next k
       a$(i)=o$
next i

maxLen = len(a$(n))
for i=  0 to n
    print space$((maxLen-len(a$(i)))/2);a$(i)
next i

end