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

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

Помогитеее

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

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

uses crt;
var a,n:integer;
  k : boolean;
begin
 clrscr;
  k:=false;
  write('Трехзначное число a=');
  readln(a);
   write('n=');
    readln(n);
    While a>0 do
    Begin
      k:=k or ((a mod 10)=n);
      a:=a div 10;
    end;
    If k then
     writeln('Число ',n,' входит ')
    else
     writeln('Число ',n,' не входит ');
 readkey;
end.

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

В начале кода подключается библиотека crt, которая используется для работы с вводом и выводом.
Затем объявляются переменные a, n и k типа integer. Переменная n используется для хранения числа, в которое нужно проверить, а переменная k используется для хранения результата проверки.
Далее происходит очистка экрана с помощью функции clrscr.
Затем устанавливается значение переменной k в false, что означает, что условие еще не выполнено и проверка не пройдена.
Выводится запрос на ввод трехзначного числа, который записывается в переменную a.
Затем выводится запрос на ввод цифры n, которая записывается в переменную n.
Далее идет цикл while, который выполняется до тех пор, пока значение переменной a больше нуля. Внутри цикла происходит проверка: если остаток от деления a на 10 равен n, то переменная k устанавливается в true, что означает, что условие выполнено. Затем значение переменной a делится на 10, чтобы уменьшить его на одну цифру.
После выхода из цикла while выполняется проверка с помощью условного оператора if. Если значение переменной k равно true, то выводится сообщение о том, что число n входит в трехзначное число. В противном случае выводится сообщение о том, что число n не входит в трехзначное число.
В конце кода вызывается функция readkey, которая позволяет пользователю нажать любую клавишу для выхода из программы.