pascal [模拟][二维数组]三角设计

var
    n,i,j,k,l:longint;
begin
    readln(n);
    k:=0;
    for i:=1 to n do
    begin
        inc(k);
        if k>9 then k:=0;
        l:=k;
        for j:=1 to i-1 do
        begin
          write(l);
          inc(l);
          if l>9 then l:=0;
        end;
        for j:=1 to i do
        begin
          if j<i then write(l) else writeln(l);
          dec(l);
          if l<0 then l:=9;
        end;
    end;
    readln;
end.其实可以不用二维数组