求助..!Pascal寫揚輝三角.. [复制链接]

同上,比如輸入6
輸出:
1
1 1
1 3 3 1
1 4 6 4 1
1 5 10 10 5 1
1 6 15 20 15 6 1

求輸入n的(請用pascal寫..謝了)
可以msn指導下我就更好了...
我的msn: baobao920229@hotmail.com
謝謝各位!

program yh(input,output);
var m,n,c:integer;
begin
for m:=0 to 10 do
begin
c:=1;
write (c:40-3*m);
for n:=1 to m do
begin
c:=c*(m-n+1) div n;
write (c:6);
end;
writeln
end;
end.

太谢谢了,我刚好需要这个程序