Сформировать квадратную матрицу

[nastia18]

сформировать квадратную матрицу порядка N по заданному образцу:
1 2 3 . . . n
n n-1 n-2 . . . 1
1 2 3 . . . n
n n-1 n-2 . . . 1
. . . . .
. . . . .
. . . . .
n n-1 n-2 . . . 1
http://cs10661.vkontakte.ru/u12732358/114737780/y_09fcef45.jpg

 

[Vladimir_S]

сформировать квадратную матрицу порядка N по заданному образцу:
1 2 3 . . . n
n n-1 n-2 . . . 1
1 2 3 . . . n
n n-1 n-2 . . . 1
. . . . .
. . . . .
. . . . .
n n-1 n-2 . . . 1

CONST
 Nmax=9;
VAR
 A:Array[1..2*Nmax,1..2*Nmax] of Byte;
 i,j:Integer;
 N:Byte;
BEGIN
 Write('N/2 (1..9) = ');
 ReadLn(N);
 for i:=1 to N do
  for j:=1 to 2*N do
   begin
    A[2*i-1,j]:=j;
    A[2*i,j]:=2*N-j+1;
   end;
 for i:=1 to 2*N do
  begin
   for j:=1 to 2*N do
    Write(A[i,j]:4);
   writeln;
  end;
 readln;
END.