Запишите программу, определяющая колво гласных букв в введенном слове

//прога на Pascal`e var s: string; ch: set of char = ['а', 'о', 'у', 'е', 'ё', 'и', 'э', 'я', 'ю']; i, count: byte; begin readln (s); for i:=1 to length (s) do   if s[i] in ch then inc (count); write (count); end.