Определить, может ли символ являться цифрой в системах счисления с основаниями 2, 8, 10 - Pascal ABC

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

Задан символ. Определить, может ли он являться цифрой в системах счисления с основаниями 2, 8, 10, 16. (Решить с помощью процедуры)

Решение задачи: «Определить, может ли символ являться цифрой в системах счисления с основаниями 2, 8, 10»

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

uses crt;
procedure cifra(ch:char;ss:byte);
var f:boolean;
begin
case ss of
2:f:=ch in ['0','1'];
8:f:=ch in ['0'..'7'];
10:f:=ch in ['0'..'9'];
16:f:=ch in ['0'..'9','A'..'F','a'..'f'];
end;
if f then write('Символ ',ch,' является цифрой в СС ',ss)
else write('Символ ',ch,' не является цифрой в СС ',ss)
end;
var ch:char;
    ss:byte;
begin
write('Введите символ ch=');
readln(ch);
repeat
write('Введите систему счисления 2,8,10,16 ss=');
readln(ss);
until ss in [2,8,10,16];
cifra(ch,ss);
end.

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

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

В первой строке используется библиотека crt, которая предоставляет функции для работы с регистрами и переменной ss.
В процедуре cifra проверяется, может ли символ быть цифрой в системе счисления с основанием 2, 8, 10 или 16.
Переменная f устанавливается в значение true, если символ является цифрой в соответствующей системе счисления, и в значение false в противном случае.
В зависимости от значения ss выполняется один из блоков case.
Если символ является цифрой в данной системе счисления, то выводится сообщение, что символ является цифрой.
Если символ не является цифрой в данной системе счисления, то выводится сообщение, что символ не является цифрой.
В конце программы считывается ввод пользователя, пока не будет введено недопустимое значение ss.
Вызывается функция cifra с введенным символом и системой счисления.
Программа завершается.