Дано натуральное число. найти количество цифр данного числа больших b (b вводится с клавиатуры)

program zz1;

var s, n, k, b:integer; / / задаем переменные целого типа

begin

write (' введите натуральное число ');

read (n); / / вводим с клавиатуры число

write (' введите заданное b ');

read (b); / / вводим с клавиатуры число

s:=0; / / задаем начальное значение для количества

while n>0 do / / организуем цикл, пока в числе есть цифры

begin

k:=n mod 10; / / получаем последнюю цифру

if k > b then s:=s + 1; / / считаем ее

n:=n div 10; / / отбрасываем последнюю цифру из числа

end;

writeln (' количество цифр в числе больших b = ', s); / / выводим ответ

end.