能用麻溜结贴，不能用继续追问。
program PrintTriangle;
const
LEVEL = 4;
var
row, col, max, num: Longint;
begin
max := 0;
for row := 1 to LEVEL * 2 - 1 do
begin
if row <= LEVEL then Inc(max)
else Dec(max);
Write(' ':LEVEL - max + 1);
num := 0;
for col := 1 to max * 2 - 1 do
begin
if col <= max then Inc(num)
else Dec(num);
Write(num);
end;
Writeln;
end;
Readln;
end.
writeln（ 1 121 12321 1234321 12321 121 1）；
内容全部来源于网络收集，如有侵权，请联系网站删除：QQ：24596024