Pascal

var n: integer;

a: 0..9; b: boolean;

begin

write('Введите число N: ');

readln(n);

if n>0 then

begin

write('Введите цифру A: ');

readln(a);

if (a>=0) and (a<=9) then

begin

while (n>1) do

begin

if a=n mod 10 then begin b:=true; break; end else b:=false;

n:=n div 10;

end;

writeln(b);

end else writeln('Введите цифру A от 0 до 9');

end else writeln('Введите другое число, больше 0!');

end.