xDmitryINFO Var
  i, j, N:integer;

begin
  readln(N);
  for i:=1 to N do
  begin
    for j:=i to N do
     write(j, ' ');
  writeln;
  end;
end.