新建一们console application,在下面写语句就可以了
随便写了一个,不知道能不能运行

uses
  SysUtils;

var
  i, j, k: integer;
  s: string;
begin
  writeln('Please input your file name:');
  writeln('wait...');
  k := 1;
  for i := 1 to 9 do
  begin
      s := '';
      for j := 1 to k do
      begin
          s := s + format('%1d + %1d = %2d ', [i, j, i+j]);
      end;
      inc(k);
      writeln(s);
  end;
end.