(注:本题初中生做）
Program ZX2017p5;
Var i,n:integer;
x,y:string;
begin
Repeat
Readln(n);
Until (n>=2) and (n<=9);
for i:= 1 TO n do
begin
x:=x+chr (48+i);
y:=chr(48+i)+y
end;
FOR i:= 1 TO n do
begin
writeln(copy (x, n-i+1, i), copy (y, 1, i))
end
end.
输入：4
输出：44 3443 234432 12344321