program KSP811; { rozděl a panuj }

{ Program nepoužívá násobení a dělení !!! }

var
 n,              { počet zlatokopů }
 r,              { n-násobek čísla řádku }
 s,              { číslo sloupce }
 i, j : integer; { řídící proměnné cyklu }

begin
  write('Počet zlatokopů: '); readln(n);

  for i:=1 to n do { pro každého zlatokopa }
    begin
      write('Zlatokop ', i:2, ' :');

      r := 0; s:= i;

      for j:=1 to n do { rozděluj }
        begin
          write(' ', r+s:3);
          r := r+n;
          if s=n then s:=1 else s:=s+1;
        end;

      writeln;
    end;
end.