pascal 二维数组

var
n,j,i,k,t:longint;
a:array[1..100,1..100] of longint;
begin
readln(n);
for k:=2 to n+1 do
for i:=1 to n do
for j:=1 to n do
begin
if (i+j)=k then
begin
inc(t);if k mod 2=0 then a[j,i]:=t else a[i,j]:=t;
end;
end;
for i:=1 to n do
begin
for j:=1 to n do
begin
if (i+j)