Как задать матрицу? Опции

[Tribunal]

по какому закону предложите задать вывод матрицы
1 2 3 4
-4 -1 -2 -3
3 4 1 2
-2 -3 -4 -1
любого порядка???

очень прошу помочь

[volvo]

Например, по такому:

const
  n = 4;

var
  a: array[1 .. n, 1 .. n] of integer;
  i, j, k: integer;

begin
  for i := 1 to n do
    for j := 1 to n do
      if i = 1 then a[i, j] := j
      else begin
        if j = 1 then k := n else k := j - 1;
        a[i, j] := - a[i-1, k];
      end;

  for i := 1 to n do begin
    for j := 1 to n do
      write(a[i, j]:4);
    writeln;
  end;
end.

[Tribunal]

благодарю...
что-то действительно про номера не подумала...
нехорошо,однако=(

спасибо большое!