Program PascalGuru;
 
var s,cif:string;
    cifry:array[0..9] of integer;
    i,j,min,otvet:integer;
    esti:boolean;
 
begin
write('Vvedite tekst:'); readln(s);
for i:=0 to 9 do cifry[i]:=0;
 
esti:=false;
 
for i:=1 to length(s) do
   for j:=0 to 9 do
    begin
    str(j,cif);
    if s[i]=cif[1] then begin inc(cifry[j]); esti:=true;  end
   end;
{-------------------------------------}
 
if esti then
        BEGIN
            for i:=0 to 9 do
            if cifry[i]>0 then begin min:=i; break;  end;
 
 
            for i:=0 to 9 do
            if cifry[i]>0 then
            if cifry[i]<cifry[min] then  min:=i;
            writeln('Otvet: ',min)
        END
        else writeln('V tekste net tsifr...');
 
readln;
end.