回帖：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.