Программа
var
x:longint;
b:0..9;
begin
repeat
write('Натуральное число=');
readln(x);
until x>0;
repeat
write('Цифра b=');
readln(b);
until b in [0..9];
while (x<>0) and (x mod 10<>b) do
x:=x div 10;
if x=0 then
writeln('В числе нет такой цифры')
else
writeln('В числе есть такая цифра');
end.