В заданном номере телефона увеличить 4ю цифру на «1» и вывести результат.( если 4я цифра равна 9,то заменить ее на «0»).Телефон вводить в виде 3 цифры,тире,2 цифры,тире,2 цифры — QBasic(Бейсик)

INPUT "vvedite nomer ", a$
IF MID$(a$, 5, 1) = "9" THEN MID$(a$, 5, 1) = "0" ELSE MID$(a$, 5, 1) = CHR$(ASC(MID$(a$, 5, 1)) + 1)
PRINT a$

Тестирование выполнено в программе QB64 ( Скачать )