Введите строку. Удалить все символы, расположенные между круглыми скобками. (Примечание, В строке скобки расставлены правильно, нет вложенных скобок. Может быть несколько пар круглых скобок)

Var

s:string;

i, n, k:integer;

begin

Write ('Введите выражение: ') ; Readln (s) ;

i:=Length (s) ;

while i>0 do begin

if s[i]=') ' then begin

k:=0; Dec (i) ;

while (s[i]' (') and (i>0) do

begin Dec (i) ; Inc (k) end;

Delete (s, i+1, k)

end;

Dec (i)

end;

Writeln (s)

end.

Тестовое решение:

Введите выражение: 3 * (a+b) / (a-b) ;

3 * () / () ;