【程序说明】程序功能是若输入的N值为5，则输出结果如下：
1
1 1
1 2 1 1 3 3
1 1 4 6 4 1 【程序】 SET
TALK OFF CLEAR INPUT“N＝”TO N DIME A(N，N) P=N DO WHILE
N＞0 A(N，N)=1 (5)
N＝N-1 ENDDO FOR I＝3 TO (6) FOR
J＝2 TO I-1 A(I，J)= (7)
ENDFOR ENDFOR FOR I＝1 TO P
SPACE(3*(P-I+1)) FOR J＝1 TO I
STR(A(I，J)，3) (8) ENDFOR SET
TALK ON
