MaxLuk_3

DIM S$, R$, I AS INTEGER
INPUT "Введите текст: ", S$
FOR I = 1 TO LEN(S$)
    SELECT CASE MID$(S$, I, 1)
      CASE "а"
        R$ = R$ + "о"
      CASE "А"
        R$ = R$ + "О"
      CASE "у", "У"
        R$ = R$ + ""
      CASE ELSE
        R$ = R$ + MID$(S$, I, 1)
    END SELECT
NEXT I
PRINT "Получилось: "; R$