Программа должна выдавать true если введенный символ является гласной - Pascal

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

Программа должна выдавать

true

если введенный символ является гласной. Паскаль.

Решение задачи: «Программа должна выдавать true если введенный символ является гласной»

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

const
    VOWELS: Set Of Char = ['a', 'A', 'e', 'E', 'i', 'I', 'u', 'U', 'o', 'O', 'y', 'Y'];
var
    c: Char;
begin
    Write('Input char: '); ReadLn(c);
    Write(c in VOWELS);
end.

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

Константа VOWELS объявляется как множество символов, содержащее гласные: 'a', 'A', 'e', 'E', 'i', 'I', 'u', 'U', 'o', 'O', 'y', 'Y'.
Переменная c объявляется как символ.
Вводится символ с помощью функции ReadLn и сохраняется в переменной c.
Выполняется проверка принадлежности символа переменной c множеству VOWELS с помощью оператора in.
Выводится результат проверки (true, если символ является гласной, и false, если нет) с помощью функции Write.