определите сколько раз в данной строке встречаются глас-ные буквы.

[netiv]

Написать программу, определения сколько раз в данной строке встречаются глас-ные буквы.

Program Kol;
      Var
b: string;
i, k,c: integer;
begin
writeln ('Введите строку');
readln (b);
c:=length(b);
k:=0;	
for i:=1 to c do
if (b[i]='a') or (b[i]='o') or (b[i]='e') or (b[i]='i') и т.д.
   then k:=k+1;
writeln (k);
readln
end.

Так вот вопрос. Как эту строку записать иначе? if (b[i]='a') or (b[i]='o') or (b[i]='e') or (b[i]='i'), всмысле сократить

[OFFSET]

Вроде нет. Только если это множество записать в начале и присвоить ему короткое имя.

[TinMan]

Сообщение от netiv

Как эту строку записать иначе? if (b[i]='a') or (b[i]='o') or (b[i]='e') or (b[i]='i'), всмысле сократить

if b[i] in ['a','e','i','o','u','y'] then ...