Подсчитайте количество гласных латинских букв в строке.(ПАСКАЛЬ)

Question

Подсчитайте количество гласных латинских букв в строке.(ПАСКАЛЬ)

Answer 1

Const Glasnie=['E', 'Y', 'U', 'I', 'O', 'A','e', 'y', 'u', 'i', 'o', 'a'];var i,k: integer;    s: string;begin  ReadLn(s);  k:=0;  for i:=1 to length(S) do    if s[i] in Glasnie then k:=k+1;  writeLn('Количество гласных - ',k)end.