LINE INPUT "vvedite text:"; a$
DO
    q1 = INSTR(a$, "(")
    q2 = INSTR(a$, ")")
    IF q1 > 0 AND q2 > 0 THEN
        a$ = MID$(a$, 1, q1 - 1) + MID$(a$, q2 + 1, LEN(a$) - q2)
    ELSE
        EXIT DO
    END IF
LOOP
PRINT a$