Дано натуральное число. Правильно ли, что в нем нет цифры b

program zz1;
var n1,n,k,b,m:integer;
begin
read(n); //вводим данное n
read(b); //вводим заданную цифру
n1:=n; //запоминаем начальное n
while nlt;gt;0 do //повторяем цикл пока начальное число не станет 0
begin
m:=n mod 10; //получаем заключительную цифру числа
if b=m then k:=k+1; //если она одинакова данной цифре, то считаем ее
n:=n div 10; //выкидываем эту цифру из числа
end;
if k=0 then write(цифры ,b, в числе ,n1, нет) else write(цифра ,b, в числе ,n1, есть);// выводим ответ на экран
end.