Ответ:

program MinNumber;

var

 n, k, kmin, i: Integer;

begin

 Write ('Введите трехзначное число: ');

 ReadLn (n);

 if (n >= 100) and (n <=999) then begin

   kmin := 9;

   while n > 0 do begin

     k := n mod 10;

     n := n div 10;

     if k < kmin then

       kmin := k;

   end;

   WriteLn ('Наименьшая цифра = ', kmin);

 end else

   Write ('Это не трёхзначное число.');

 ReadLn;

end.

Verified answer