program xxx; var a,b, min :integer;begin write('введите число а=');
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.
program xxx;
var a,b, min :integer;
begin
write('введите число а=');
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.
begin write('n = '); readln(s);
writeln('минимальная цифра: ',s.Sorted.JoinIntoString('')[1]);
end.
n = 9823457
минимальная цифра: 2