pascal打印数字图形读入一个整数n（n

pascal打印数字图形读入一个整数n（n
pascal打印数字图形
读入一个整数n（n

pascal打印数字图形读入一个整数n（n
var
  n,i,j:longint;
begin
  readln(n);
  for i:=1 to n do
    begin
      for j:=1 to i-1 do write('':5);
      for j:=i to n do write(j-i+1:5);
      writeln;
    end;
end.