var
   i,j,n:word;
   a:array[1..100] of word;
begin
     readln(n);
     a[1]:=1;
     for i:=2 to n do
         a[i]:=a[i-1]+i-1;

     for j:=n downto 1 do
         begin
              for i:=n downto 1 do
                  write(a[i]:3);
              for i:=1 to n-1 do
                  a[i]:=a[i+1]+1;
              a[n]:=a[n]+j;
              writeln;
          end;
end.