Программа составлена для английских букв а. Если нужны русские, замените ими английские буквы в кавычках.
1 2 3 4 5 | INPUT "vvedite predlojenie ",a$FOR i=1 TO LEN(a$)IF MID$(a$,i,1)="a" OR MID$(a$,i,1)="A"THEN n=n+1NEXTPRINT "bukv a=";n |