Составьте программу подсчета
различных гласных букв в слове Х.

var
c,i: integer;
X: string;
begin
writeln(Введите слово: );
read(X);
for i:=1 to length(X) do
 if X[i] in [а, о, э, и, у, ы, е, ё, ю, я] then inc(c);
writeln(Гласных букв в слове: ,c);
end.

Если ответ по предмету Информатика отсутствует или он оказался неправильным, то попробуй воспользоваться поиском других ответов во всей базе сайта.