Очевидно, что информации в одном символе 10 бит.
var
n, d, min: integer;
begin
read(n);
n := abs(n); // Если введено отрицательное
min := 10;
while n > 0 do
begin
d := n mod 10;
n := n div 10;
if d < min then
min := d;
end;
write(min);
end.
<span>да мы можем увидеть какие есть деревья ,животные и научиться различать их))</span>
По порядку ноеров: 8, 6, 9, 128