// Theo cách mà em hiểu thì "Lùa bò vào chuồng" nó là "Đếm phân phối" :))

uses crt;
var
    i, n, x, k: longint;
    a: array[0..100] of longint;
begin
    clrscr;
    readln(n);
    for i:=1 to n do 
        begin
            read(x);
            inc(a[x]);
        end;
        
    k:=0;
    for i:=1 to 100 do
        if a[k] < a[i] then k:=i;
    writeln(k);
    writeln(a[k]);
readln;
end.

uses crt;

var A : array [1 .. 100] of integer;

i, j, N, Max, Cs, d : integer;

begin

clrscr;

write('Nhap so N = '); readln(N);

write('Nhay day gom ', N ,' so : ');

for i := 1 to N do read(A[i]);

Max := A[1]; Cs := 1; d := 1;

for j := 1 to N do

    begin

        d := 1;

        for i := 1 to N do

            if (j <> i) and (A[j] = A[i]) then d := d + 1;

        if d > Cs then

            begin

                Max := A[j];

                Cs := d;

            end;

    end;

writeln('So xuat hien nhieu nhat : ', Max);

writeln('Xuat hien ', Cs ,' lan');

readln

end.