{* Задача407 *}

REM basic

' В заданном номере телефона увеличить 4ю цифру на "1" и вывести результат.( если 4я цифра равна 9,то заменить ее на "0").Телефон вводить в виде 3цифры,тире,2цифры,тире,2цифры.


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$
End