LINE INPUT "введите текст"; t$
t = INSTR(1, t$, "a")
WHILE t <> 0
k = k + 1
t = INSTR(t + 1, t$, "a")
WEND
 
PRINT "в тексте"; k; "букв а"
END