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.
