Matematické Fórum

Program uzavorkovani;
const MAX = 10;
var n: integer;  { pocet zavorek }
    vysledek : array[1..MAX] of char;  { vysledne pole }
           i : integer; 

procedure zavorky(l,p : integer);

begin{leve zavorky}
    if( l > 0 ) then begin
                   vysledek[ 2*n -p -l +1 ] := '(';
                   zavorky(l-1,p);        { rekurze }
    end;  

    {prave zavorky}
    if( (p > 0) and (p > l) ) then begin
                   vysledek[ 2*n -p -l +1 ] := ')';
                   zavorky(l,p-1);        { rekurze }
    end;

    {vysledek}
    if( p = 0 ) then begin 
        for i:= 1 to 2*n do write(vysledek[i]);
        writeln;
    end;
end;

begin
  readln(n);
  zavorky(n,n);
  readln; 


end.