{* Задача1 *}

REM basic

' Заменить все буквы "а" в предложении на буквы "о"


ss$=""
INPUT "Введите предложение", s$
For I=1 To LEN(s$)
If Mid$(s$,I,1)="а" Then
ss$=ss$+"о"
Else
ss$=ss$+Mid$(s$,I,1)
End If
Next
PRINT "Исправленная строка: ", ss$
End