program q174589;
 var k:Word;
     min, max: byte;
procedure MinMax(x:Word; var min:byte; var max:byte);
 var n:integer;
begin
     min:=10;  {Зададим начальную минимальную цифру}
     max:=0;   {Зададим начальную максимальную цифру}
     while x<>0 do
     begin
          n:=x mod 10;    {Получаем последнюю цифру заданного числа}
          x:=x div 10;    {получаем число без последней цифры}
          if n>max then max:=n; {если данная цифра больше максимальной, то эта цифра максимальная}
          if n<min then min:=n; {аналогично}
     end;
end;

begin
 write('Введите число от 0 до 65535: ');
 readln(k);
 MinMax(k, min, max);    {Вызываем процедуру}
 writeln('Минимальная цифра: ',min,', а максимальная: ',max);
 writeln('Нажмите ENTER для завершения...');
 readln;
end.