Вопрос от посетителя:
Дано натуральное число. Найти минимальную цифру.
Илюха отвечает:
program dddd;
uses crt;
var a,b,c,i:integer;
begin
clrscr;
c:=10;
readln(a);
while a <> 0 do
begin
b:= a mod 10;
if b < c then c:=b;
a:= a div 10;
end;
writeln(c);
readkey;
end.