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

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