Вывести количество гласных букв - PascalABC.NET

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

Привет, помогите пожалуйста с задачкой: Вводится текст, слова разделены пробелом вывести количество гласных букв. Заранее благодарю.

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

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

begin
  writeln('Количество глассных букв:',readstring('Введите текст:').ToCharArray().
  Where(c->uppercase(c) in ['А','Е','Ё','И','О','У','Ы','Э','Ю','Я','A','E','I','O','U']).Count());
end.

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

В этом коде используется язык программирования PascalABC.Net.

writeln('Количество глассных букв:',readstring('Введите текст:').ToCharArray())
- Выводит сообщение Количество глассных букв: и значение переменной readstring('Введите текст:')
- readstring('Введите текст:') считывает строку из консоли с помощью функции readstring
- Значение переменной ToCharArray преобразуется в массив символов
Where(c->uppercase(c) in ['А','Е','Ё','И','О','У','Ы','Э','Ю','Я','A','E','I','O','U'])
- Функция Where фильтрует массив символов, оставляя только те символы, для которых условие истинно
- Условие uppercase(c) in ['А','Е','Ё','И','О','У','Ы','Э','Ю','Я','A','E','I','O','U'] проверяет, является ли символ гласной буквой
- Результатом является новый массив символов, содержащий только гласные буквы
.Count()
- Функция Count подсчитывает количество элементов в массиве
writeln(result)
- Выводит результат подсчета количества гласных букв в виде сообщения Таким образом, код считывает строку из консоли, преобразует ее в массив символов, фильтрует этот массив, оставляя только гласные буквы, и подсчитывает количество оставшихся символов. Результат выводится на экран.