vuongso2 pascal

var
    n,i,j,m:longint;
begin
    //assign(input,'vuongso2.inp');reset(input);
    //assign(output,'vuongso2.out');rewrite(output);
    readln(n);
    for i:=1 to n do
    begin
           for j:=1 to n do 
             write((j+i-2) mod n + 1,' ');
           writeln;
    end;
end.