Является ли символ цифрой - Turbo Pascal

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

Нужно проверить является ли символ цифрой без использования циклов через функцию IsDigit( возвращать значение bool),(вывести надо Да или Нет) Спасибо.

Решение задачи: «Является ли символ цифрой»

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

uses crt;
function IsDigit(s:char):boolean;
begin
IsDigit:=s in ['0'..'9'];
end;
var c:char;
begin
clrscr;
write('Введите символ c=');
readln(c);
writeln('Является ли он цифрой?');
if IsDigit(c) then write('да')
else write('нет');
readln
end.

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

В начале кода подключается библиотека crt, которая является стандартной библиотекой Turbo Pascal и используется для работы с функцией IsDigit.
Затем определяется функция IsDigit, которая принимает один параметр s типа char. Функция использует оператор in для проверки, содержится ли символ в диапазоне от '0' до '9'.
Переменная c инициализируется значением, введенным пользователем в консоли.
Затем выполняется цикл чтения, который выводит сообщение Введите символ c= и ожидает ввода пользователя.
Введенный символ сохраняется в переменной c.
Выполняется проверка с помощью функции IsDigit. Если символ является цифрой, то выводится сообщение да, иначе выводится сообщение нет.
Цикл чтения завершается вызовом функции readln.