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

INPUT "Введите строку"; L$
FOR I = 1 TO LEN(L$)
    IF MID$(L$, I, 1) = "e" OR MID$(L$, I, 1) = "o" THEN S = S + 1
NEXT I
PRINT "суммарное число букв 'е' и о' равно "; S