Program lab;
var i,j,m,n:integer;
    A: array[1..7,1..7] of integer;
    c: array[1..7] of integer;
    b: array[1..7] of integer;
begin
c[1]:=1;
b[1]:=7;
    for m:= 2 to 7 do
    begin
      c[m]:=c[m-1]+1;
      b[m]:=b[m-1]-1;
    end;
    for i:=1 to 7 do
    begin
      for j:=1 to 7 do
       begin
        if i mod 2 = 0 then
          A[i,j]:=c[j]
        else
          A[i,j]:=b[j];
        write(A[i,j], ' ');
       end;
       writeln;
    end;
end.