pascal问题，帮帮我，矩阵问题

Question

1、有一个4*4的矩阵,如下图:
1 2 3 4
8 7 6 5
9 10 11 12
16 15 14 13

编一个程序把上述的数放入数组对应的位置,不能直接输出。
2、第一题的升级版：对于输入的n，输出n*n的方阵。

Answer 1

1.
var a,b:longint;
begin
for a:=1 to 4 do
begin
for b:=1 to 4 do
if a mod 2=0 then write(a*4-b+1,' ')
else write(b+4*(a-1),' ');
writeln;
end;
end.
2 .
var a,b,n:longint;
begin
read(n);
for a:=1 to n do
begin
for b:=1 to n do
if a mod 2=0 then write(a*n-b+1,' ')
else write(b+n*(a-1),' ');
writeln;
end;
end.