Составьте программу, которая в строке символов считает количество 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$