clear
input "输入行数："  to n 
dime a(n,n) 
for i=1 to n 
    ?space((n-i)/2*5)  
    for j=1 to i 
        if j=1 or i=j   
            a(i,j)=1 
        else 
            a(i,j)=a(i-1,j-1)+a(i-1,j) 
        endif 
        ??str(a(i,j),5) 
    endfor 
    ? 
endfor