Составьте программу, которая в строке символов считает количество Y заменяет их на * . Желательно составить программу от начала и до конца. Буду благодарна.

INPUT a$p = INSTR(1, a$, "Y")DO WHILE p > 0  a$ = MID$(a$, 1, p - 1) + "*" + MID$(a$, p + 1)  p = INSTR(1, a$, "Y")LOOPPRINT a$