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

Так как на мой вопрос не было ответа, то примем, что количество вводимых с клавиатуры символов тоже вводится с клавиатуры.

const

maxn = 100; / / изменяйте по усмотрению

type

myarr = array [1 ... maxn] of char;

var

a: myarr;

n: longint;

procedure input (var a: myarr; n: longint) ;

var

i: longint;

begin

for i : = 1 to n do

read (a[i]) ;

end;

function kolvo_gl (a: myarr; n: longint) : longint;

var

i, k: longint;

begin

k : = 0;

for i : = 1 to n do

case a[i] of

'a', 'i', 'u', 'o', 'e': inc (k) ;

end;

kolvo_gl : = k;

end;

begin

readln (n) ;

input (a, n) ;

writeln (kolvo_gl (a, n)) ;

end.