Надо написать программу на Паскале, без массивов. Дано натуральное число. Определить, сколько раз у этого числа встречается минимальная цифра. (Например, при вводе числа 2618319, на экране должно быть "2").

program zz1;

var n, min, i, kol, b, c:integer; / /задаем переменные

begin

write ('введите заданное число '); / /вводим заданное число

read (n);

b:=n; / /запоминаем заданное число в другой переменной

min:=9; / /задаем начальное значение для минимальной цифры

while n>0 do / /в этом цикле находим минимальную цифру в числе

begin

c:=n mod 10;

n:=n div 10;

if c
end;

while b>0 do//в этом цикле находим количество минимальных цифр в числе

begin

c:=b mod 10;

b:=b div 10;

if c=min then kol:=kol+1;

end;

write ('количество минимальных цифр = ', kol); / /выводим ответ

end.