怎么用pascal编出这个图案 1 121 12321 1234321 12321 121 1

1
121
12321
1234321
12321
121
1
程序如下：
var
i,s,j,k:longint;
begin
for i:=-3 to 3 do
begin
s:=abs(i);write('':s);
for j:=1 to 4-s do
write(j);
for k:=3-s downto 1 do
write(k);
writeln;
end;
end.
如果需要输入n的话稍修改下便可