dim p(100,100)
for i=1to 100s=0
for j=1to i
a=1
if(j>1)*(j<i)a=p(i-j,j)+p(i-1,j-1)
s=s+a
p(i,j)=a
next
?"p(",i,")=",s
next