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

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);  readlnend.