Задание: составить программу, в которой посчитать кол-во гласных в строке. (в pascal)(тема: двумерные массивы)

Предыдущий
вопрос Следующий
вопрос

program CountVowels;

var
str: String;
vowels: set of Char;
count: Integer;
i: Integer;

begin
vowels := ['a', 'e', 'i', 'o', 'u']; // определяем гласные буквы
count := 0;

write('Введите строку: ');
readln(str);

for i := 1 to Length(str) do
begin
if LowerCase(str[i]) in vowels then // проверяем, является ли символ гласной
count := count + 1;
end;

writeln('Количество гласных в строке: ', count);
end.