Посчитать количество гласных букв - Turbo Pascal

Формулировка задачи:

Помогите написать программу: С клавиатуры вводится последовательность латинских символов. Признак конца ввода – конец файла. Посчитать количество гласных букв.

Решение задачи: «Посчитать количество гласных букв»

Листинг программы

const
  g: set of char = ['E', 'U', 'I', 'O', 'A', 'e', 'u', 'i', 'o', 'a'];
 
var
  i, k: integer;
  ch:char;
 
begin
  while not eof(input) do
  begin
    read(input, ch);
    if ch in g then
      inc(k);
  end;
  writeln(k);
end.

Объяснение кода листинга программы

В данном коде используется язык программирования Turbo Pascal. Он предназначен для подсчета количества гласных букв в тексте, который вводится с клавиатуры. В данном коде объявлены следующие переменные:

i и k - целочисленные переменные, которые используются в цикле while;
ch - символовая переменная, которая используется для чтения символов из входного потока;
g - множество символов, которое содержит гласные буквы. Цикл while выполняется до тех пор, пока не будет достигнут конец файла ввода (EOF). Внутри цикла происходит чтение символа из входного потока и проверка, содержится ли этот символ в множестве g. Если символ содержится в g, то переменная k увеличивается на единицу. После завершения цикла выводится значение переменной k, которое и является количеством гласных букв во входном тексте.