Построить все правильные скобочные выражения 2N

[Dr1khem]

Построить все правильные скобочные выражения 2N то есть те которые содержат по N правых и N левых скобок. Использовать рекурсию.
Часть кода есть но надо сделать так чтоб я сам водил скобки а програма должна автоматитески их закрыть и в конце показать какой элемент веден то есть скобки " [ ] " и сколько элементов было ведено т.е подсчитать скобки

procedure ShowVariant(s : string; a, b : integer);
begin
  if (a=0) and (b=0) then begin Writeln(s); Exit; end;
  if (a>0) and (b>=a) then ShowVariant(s+'(',a-1,b);
  if b>0 then ShowVariant(s+')',a,b-1);
end;

var N : integer;
begin
  N := 4;
  ShowVariant('',N,N);
  readln;
end.

___________
Код нужно оформлять по правилам:
тегом [CODE]..[/СODE] (это кнопочка с решёточкой #)
Не забывайте об этом!
Модератор.

[Serge_Bliznykov]

О! узнаю свой код!

только непонятно, что значит "я сам вводил скобки, а программа должна их закрыть" ? И при чём здесь квадратные скобки?!

[Dr1khem]

то есть во ты вел скобки а програма должна сама их закрыть а квадратные скобки это такие скобки надо ввести

Вел
[
[
[
а прога их должна закрыть вот так
[ ]
[ ]
[ ]

[Serge_Bliznykov]

не, я ПАС!
я тут в вашем объяснении ничегошеньки не понимаю...
например, зачем Вы несколько строчек вводите, не понимаю, сколько их может быть, не понимаю.
И при чём здесь тема "правильные скобочные выражения 2N" (2N не смущает?!), тоже не понимаю...

[Dr1khem]

я са задачу не понял что надо, а можите подредактировать ее хотяб вот она сама же скобки выводит а надо сделать чтоб я сам мог водить скобки

[Dr1khem]

http://programmersforum.ru/showthread.php?t=122559
вот эту задачу взял но сказал что типа такая в нэте есть надо изенить ее чтоб сам водил скобки и скобки считало ну доустим вывели 4 скобки это уже в конце

[Dr1khem]

Serge_Bliznykov
добавь в програму ввод
примерно writeln('Введите скобки ');
и програма их закрывала можеж как угодно написать