Поиск минимальной цифры в целом числе N.составить блок схему

Question

Поиск минимальной цифры в целом числе N.составить блок схему

Answer 1

//Написано на PascalABCCompiler.Core v3.3.0.1540 (16.09.2017)

var
num, min: integer;
begin
min := 9;
read(num);
while num <> 0 do
begin
if num MOD 10 <= min then min := num MOD 10;<br>num := num DIV 10;
end;
write(min);
end.

---