打印数字金字塔的PASCAL程序

program haha
var
i, j, k: Integer;

begin
//初始化
i := 1;
j := 1;
k := 1;

for i := 1 to 9 do
begin
for j := 1 to i do
begin
write(j, ' ');
end;
for k := i downto 1 do
begin
write(k, ' ')
end;
writeln;
end;

end.

program wr;
var n,j,i:integer;
begin
read(n);{n是要打的行数}
for i:=1 to n do{输出行}
begin
write('1');{输出行首}
for j:=2 to i do write(' ',j);{输出前半行}
for j:=i-1 downto 1 do write(' ',j);{输出后半行}
writeln;{换行}
end;
end.

program jinzita;
var
n,i,j:integer;
begin
readln(n);
for i:=1 to n do
begin
for j:=1 to i do write(j,' ');
for j:=i-1 downto 1 do write(j,' ');
writeln;
end;
end.
说明:n是指行数...writeln是换行,空格直接' '就可以了..

如下是简洁的程序，可以很快验证，
program j