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==