program Tournament1;
{$APPTYPE CONSOLE}
uses
  SysUtils;

procedure Tournament(Min,Max : Integer);
  var
    Middle : Integer;
  begin
    if Min = Max
      then begin
             Write(Min);
           end  
      else begin
             Middle := (Min+Max) div 2;
             Write('(');
             Tournament(Min,Middle);
             Write('-');
             Tournament(Middle+1,Max);
             Write(')');
           end;
  end; {Tournament}

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