Составьте программу, которая считает, сколько раз в тексте, заданном с клавиатуры, встречается буква "м" текст: мой компьютер сломан в бейсике

Input"введите текст"; a$
For i=1 to len(a$)
if mid$(a$,i,1)="М" then s=s+1
next
print " Количество букв =" s
end