var str:string; i,k,l,d: integer;
BEGIN
str:='a+(45-f(x)*(b-c))';
i:=0;
for k:=1 to length(str) do
  begin
    if str[k]=')'
      then begin
        inc(i);
        d:=1; // число неспаренных скобок
        l:=k-1;
        while (d>0) and (l>0) do
          begin
            if str[l]='(' then dec(d);
            if str[l]=')' then inc(d);
            dec(l);
          end;
        writeln(l,' ',k);
      end;
  end;
END.

dmFyIHN0cjpzdHJpbmc7IGksayxsLGQ6IGludGVnZXI7CkJFR0lOCnN0cjo9J2ErKDQ1LWYoeCkqKGItYykpJzsKaTo9MDsKZm9yIGs6PTEgdG8gbGVuZ3RoKHN0cikgZG8KICBiZWdpbgogICAgaWYgc3RyW2tdPScpJwogICAgICB0aGVuIGJlZ2luCiAgICAgICAgaW5jKGkpOwogICAgICAgIGQ6PTE7IC8vINGH0LjRgdC70L4g0L3QtdGB0L/QsNGA0LXQvdC90YvRhSDRgdC60L7QsdC+0LoKICAgICAgICBsOj1rLTE7CiAgICAgICAgd2hpbGUgKGQ+MCkgYW5kIChsPjApIGRvCiAgICAgICAgICBiZWdpbgogICAgICAgICAgICBpZiBzdHJbbF09JygnIHRoZW4gZGVjKGQpOwogICAgICAgICAgICBpZiBzdHJbbF09JyknIHRoZW4gaW5jKGQpOwogICAgICAgICAgICBkZWMobCk7CiAgICAgICAgICBlbmQ7CiAgICAgICAgd3JpdGVsbihsLCcgJyxrKTsKICAgICAgZW5kOwogIGVuZDsKRU5ELg==