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.