program frecventa;
uses crt;
var sir:array[1..50] of integer;
   i,j,k,cc,n,max,numar:integer;

procedure dubl(a,p:integer);
begin
if a=n+1 then exit
else begin
     if (sir[a]=p) then cc:=cc+1;
     dubl(a+1,p);
     end;
end;

begin
clrscr;
writeln('nr de elem');
readln(n);
writeln('elementele');
for i:=1 to n do
  readln(sir[i]);
max:=0;
for i:=1 to n do  begin
                  cc:=0;
                  dubl(i,sir[i]);
                  if cc>max then begin
                                max:=cc;
                                numar:=sir[i];
                                end;
                   end;
writeln(max:3,numar:3);
end.