найти минимальную цифру в трехзначном числе — Правильный ответ на вопрос найдете ниже

Ответ: 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.