{* Задача312 *}

REM basic

' В исходной строке a$ удалить все вхождения заданного символа x$ и удвоить все вхождения другого заданного символа y$.


CLS
INPUT a$
INPUT x$
INPUT y$
For i = 1 To LEN(a$)
        If Mid$(a$, i, 1) = x$ Then a$ = Mid$(a$, 1, i - 1) + Mid$(a$, i + 1, LEN(a$))
        If Mid$(a$, i, 1) = y$ Then a$ = Mid$(a$, 1, i - 1) + y$ + Mid$(a$, i, LEN(a$)): i = i + 1
Next
PRINT a$
End