{* Задача78 *}

REM basic

' Составить программу подсчитывающую, количество букв "а" в предложении.


INPUT "Введите предложение", s$
For I=1 To LEN(s$)
If Mid$(s$,I,1)="а" Then k=k+1
Next
PRINT "Кол-во букв а =", k
End