Cоставить программу подсчета ошибок на правило ча ща

rem BASIC-256 cls errors = 0 print "Введите текст > "; rem Пользователь вводит текст input a$ rem Перебираем все буквы с начала и до предпоследней for i=1 to length(a$)-1 rem Если встречаем букву Ч или Щ if mid(a$, i, 1) = "ч" or mid(a$, i, 1) = "щ" then rem Тогда проверяем следующую за ней букву. rem Если это буква я, тогда подсчитываем очередную ошибку if mid(a$, i + 1, 1) = "я" then errors = errors + 1 end if rem Переходим к следующей букве next i rem Вывод результата print "Количество ошибок в тексте "; print errors rem Конец программы end