Program yanghui(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.
我觉得这样更加简单[em2]

郁闷~书上有原程序
就是楼上那个