Информатика 5. Напишите программку, которая вводит трёхзначное число и десятичную цифру.

//PascalABC.NET (версия 3.1, сборка 1198 от 11.03.2016)
var
  a,b,i: integer;
  f:boolean;
begin
  f:=false;
  readln(a);
  readln(b);
  for i:=1 to 3 do begin
    if a mod 10 = b then f :=true;
    a:=a div 10;
  end;
  if f then writeln('заходит')
    else writeln('Не заходит');
end.

Тестовое решение
для a=123 и b =3

123
3
заходит

Для а = 123 и b = 5

123
5
Не входит