var s:string; i,l,cha,max,min:integer; x:char; panduan:boolean; chance:array['a'..'z']of integer; begin readln(s); l:=length(s); fillchar(chance,sizeof(chance),0); for i:=1 to l do begin x:=s[i]; inc(chance[x]); end; min:=maxint; max:=1; for i:=1 to