program Tournament2;
{$APPTYPE CONSOLE}
uses
  SysUtils;

procedure Tournament(Min,Max : Integer);
  var
    Middle : Integer;
  begin
    if Min = Max
      then begin
             WriteLn(Min);
           end
      else begin
             Middle := (Min+Max) div 2;
             WriteLn('„¡');
             Tournament(Min,Middle);
             WriteLn('„§');
             Tournament(Middle+1,Max);
             WriteLn('„¤');
           end;
  end; {Tournament}

var
  N : Integer;
begin
  Write('n ? ');
  ReadLn(N);
  Tournament(1,N);
  ReadLn;
end.