Дано натуральное число. Верно ли, что в нем нет цифры b? Написать программу на паскале не используя boolean массивы и строковые типы

program zz1;

var n1, n, k, b, m:integer;

begin

read (n); / /вводим заданное n

read (b); / /вводим заданную цифру

n1:=n; / /запоминаем исходное n

while n0 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.