Найти минимальную цифру в трехзначном числе

100-минимальная трехзначное

Паскаль:
  var a, b, min :integer;
begin
  readln(a);
  min:=10;
  while a <> 0 do
    begin
       b:= a mod 10;
       if b < min then min:=b;
       a:= a div 10
    end;
  writeln(min);
  readln
end.