Составьте программу, определяющую, входит ли введенная вами цифра в десятичную запись введенного вами трехзначного числа

begin

 var (n, x) := ReadInteger2();

 while n > 0 do

 begin

   if n mod 10 = x then break

   else n := n div 10

 end;

 Print(n > 0 ? 'входит' : 'не входит')

end.