Дано натуральное число, в котором есть повторяющиеся цифры. найти количество наименьших цифр этого числа

Объяснение:

program Dekio;

var

min,i :integer;

begin

writeln('Введите число');

readln(i);

min:=i;

repeat

if i mod 10 < min then

min :=i mod 10;

i:=i div 10;

until i=0;

writeln('Наименьшая цифра');

writeln(min);

end.

если нужен был ответ  в виде программы, то вот, не за что)