{* Задача8 *}

REM basic

' Определить сколько раз встречается буква "а" в слове
' "абракадабра".


CLS
A$ = "абракадабра"
For i = 1 To LEN(A$)
tmp$ = Mid$(A$, i, 1)            
If tmp$ = "а" Then k = k + 1     
Next i
PRINT k
End