Program lab12t2;
var c,i:int64;
    min,f:byte;

procedure minimal(i: int64;var k:byte);
begin
  min:=c;
  for i:=1 to length(inttostr(c)) do
    begin
      if c mod 10 < min then
        min :=c mod 10;
      c:=c div 10;
    end;
end;

begin
  write('Введите число: ');
  readln(c);
  minimal(c,min);
  writeln('Наименьшая цифра числа: ', min);
end.