Дано целое число А. Определить, есть ли в данном числе цифра, которая равна цифре К - Turbo Pascal

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

Помогите с решением пожалуйста 1. Дано целое число А. Определить, есть ли в данном числе цифра, которая равна цифре К. 2. Числа Фибоначчи определяются по следующему закону: a1=1, a2=1, an+1=an+an-1. Суммировать подряд идущие члены Фибоначчи до тех пор, пока сумма не станет больше заданного числа Х. 3.Дано натуральное число А. Найти сумму делителей этого числа. 4.К числу 15 приписать слева и справа по одной цифре так, чтобы полученное число делилось на 15. Получить все такие числа. 5.Дан натуральный отрезок чисел [A,B]. Найти те числа этого отрезка, которые являются делителями последнего числа В.

Решение задачи: «Дано целое число А. Определить, есть ли в данном числе цифра, которая равна цифре К»

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

var  a,n,b:integer;
   Begin
write('Vvedite chislo A: ');
readln(n);
write('Vvedite cifru K: ');
readln(a);
while (n<>0) do
   Begin
if (n mod 10)=a then
   Begin
writeln('Cifra K EST');
halt;
end;
n:=n div 10;
end;
writeln('Cifri K NET');
end.

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

В данном коде на Turbo Pascal происходит следующее:

Объявляются переменные a и n типа integer.
Выводится сообщение «Введите число A: », после чего пользователю предлагается ввести число.
Выводится сообщение «Введите цифру K: », после чего пользователю предлагается ввести цифру.
В цикле while считывается введенное число, пока оно не станет равным нулю.
Если остаток от деления введенного числа на 10 равен введенной цифре K, то выводится сообщение «Цифра K ЕСТ».
После цикла, если остаток от деления введенного числа на 10 не равен введенной цифре K, то выводится сообщение «Цифра K НЕТ».
Выводится сообщение «Цифры K нет».