题目都看不懂，求大神

奇数阶幻方有非常简单的构造法。

const
MAXEDGE=40;
var
Square:array [0..MAXEDGE, 0..MAXEDGE] of LongWord;
x, y, n, k:LongWord;
i, j:LongInt;
begin
Assign(Input, 'magic.in');
Reset(Input);
Assign(Output, 'magic.out');
Rewrite;
readln(n);
if odd(n) then
begin
k:=1;
x:=n div 2;
y:=0;
for i:=1 to n do
begin
for j:=1 to n-1 do
begin
Square[x, y]:=k; inc(k);
inc(x); if x=n then x:=0;
if y:=0 then y:=n; dec(y);
end;
Square[x, y]:=k; inc(k);
inc(y); if y=n then y:=0;
end;
end;
for i:=0 to n-1 do
begin
for j:=0 to n-2 do
write(Square[i, j]);
writeln(Square[i, n-1]);
end;
Close(Input);
Close(Output);
end.

哎提高

= =