Uses Crt;
Var a:char;
Begin
  Write('Input char:');
  a:=readkey;
  Writeln;
  Write('The ASCII code for ',a,' is ',ord(a));
End.

program dani(input,output);
uses wincrt;
var
str:string;
x:char;
function many(str:string):char;
 var
 a:arrayof integer;
 tav,j,tshuva:char;
 i,max:integer;
 begin
 j:=' ';  tshuva:=' '; i:=0; max:=0;
  for j:='a' to 'z' do a:=0;
  for i:=1 to length(str)do
   begin
   tav:=str;
   a:=a+1;
   end;
  for j:='a' to 'z' do
   if a>max then
                begin
                max:=a;
                tshuva:=j;
                end;
 many:=tshuva;
 end;
Begin{of main}
writeln('enter str');
readln(str);
x:=many(str);
writeln(x);
end.