var min,num:int64;begin writeln('Vvedite chislo'); readln(num); min:=num mod 10; while(num>0) do begin if(min>(num mod 10)) then min:=num mod 10; num:=num div 10; end; writeln(min); readln; end.
var min,num:int64;
begin
writeln('Vvedite chislo');
readln(num);
min:=num mod 10;
while(num>0) do begin
if(min>(num mod 10)) then min:=num mod 10;
num:=num div 10;
end;
writeln(min);
readln;
end.