Дано трёхзначное число. Определить, входит ли в него цифра 3 - Pascal

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

Дано трёхзначное число. Определить: А) входит ли в него цифра 3 Б) входит ли в него цифра а

Решение задачи: «Дано трёхзначное число. Определить, входит ли в него цифра 3»

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

procedure cifra(a,b:integer);
begin
if(a mod 10=b)or(a div 10 mod 10=b)or(a div 100=b)then
writeln('Цифра ',b,' есть в числе')
else writeln('Цифры ',b,' нет в числе')
end;
var n,a:integer;
begin
repeat
write('Введите натуральное трехзначное число n=');
readln(n);
until (n>99)and(n<1000);
repeat
write('Введите цифру a=');
readln(a);
until a in [0..9];
cifra(n,3);
cifra(n,a)
end.

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

Введен цикл, который повторяется до тех пор, пока пользователь не введет натуральное трехзначное число.
Введен второй цикл, который повторяется до тех пор, пока пользователь не введет цифру от 0 до 9.
Задана процедура с именем cifra, которая принимает два целых параметра a и b.
В процедуре cifra происходит проверка, входит ли цифра b в число a.
Если цифра b входит в число a, то выводится сообщение Цифра 3 есть в числе.
Если цифра b не входит в число a, то выводится сообщение Цифры 3 нет в числе.
Задана переменная n типа целое, которая используется для хранения введенного пользователем числа.
Задана переменная a типа целое, которая используется для хранения введенной пользователем цифры.
Вызван первый вызов процедуры cifra с аргументами n и 3.
Вызван второй вызов процедуры cifra с аргументами n и a.