Составить прогу в паскале которая с клавы вводит последовательность символов на латинице, считает кол-во гласных этой последовательности необходимо использовать процедуру ввода последовательности и функцию которая возвращает кол-во гласных

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

program CountVowels;
var
str: string;
procedure InputString(var s: string);
begin
writeln('Enter a sequence of characters in Latin:');
readln(s);
end;
function CountVowels(s: string): integer;
var
i, vowelsCount: integer;
begin
vowelsCount := 0;
for i := 1 to length(s) do
begin
if UpCase(s[i]) in ['A', 'E', 'I', 'O', 'U'] then
vowelsCount := vowelsCount + 1;
end;
CountVowels := vowelsCount;
end;
begin
InputString(str);
writeln('Number of vowels in the sequence: ', CountVowels(str));
end.

Программа сначала предлагает ввести последовательность символов на латинице с клавиатуры, затем с помощью функции CountVowels подсчитывает количество гласных символов в этой последовательности и выводит результат на экран.