Определить, является ли символ гласной буквой - Pascal

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

Написать функцию, которая возвращает 1, если символ, полученный функцией в качестве аргумента, является гласной буквой английского алфавита, и ноль – в противном случае.

Решение задачи: «Определить, является ли символ гласной буквой»

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

uses crt;
const p:set of char=['E','Y','I','U','O','A','e','y','u','i','o','a'];
var c: char;
    r: byte;
 
function IsGl(ch: char):byte;
begin
if ch in p then IsGl:=1 else IsGl:=0;
end;
 
begin
r:=1;
repeat
write('Символ: '); readln(c);
writeln(IsGl(c));
write('0-закончить; 1-повторить: '); readln(r);
until r=0;
readln;
end.

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

В данном коде используется язык программирования Pascal. Он содержит следующие элементы:

uses crt; - подключает стандартную библиотеку ввода-вывода
const p:set of char=['E','Y','I','U','O','A','e','y','u','i','o','a']; - определяет набор символов, которые являются гласными буквами
var c: char; - объявляет переменную типа char, которая будет использоваться для хранения символа
r: byte; - объявляет переменную типа byte, которая будет использоваться для контроля цикла
function IsGl(ch: char): byte; - определяет функцию, которая будет проверять, является ли символ гласной буквой
begin - начало блока кода
if ch in p then IsGl:=1 else IsGl:=0; - проверяет, содержится ли символ в наборе гласных букв, и если да, то устанавливает значение переменной IsGl в 1, иначе - 0
end; - конец блока функции
begin - начало блока кода
r:=1; - устанавливает начальное значение счетчика повторений в 1
repeat - начало цикла повторений
write('Символ: '); - выводит на экран сообщение Символ:
readln(c); - считывает символ с клавиатуры и сохраняет его в переменной c
writeln(IsGl(c)); - выводит на экран результат проверки символа функцией IsGl
write('0-закончить; 1-повторить: '); - выводит на экран сообщение 0-закончить; 1-повторить:
readln(r); - считывает значение счетчика повторений с клавиатуры и сохраняет его в переменной r
until r=0; - пока значение счетчика повторений равно 0, выполняются следующие действия
readln; - считывает символ с клавиатуры и завершает выполнение программы