uses crt;
var count: array[1..120] of integer;
    n,i,m,ans,age: integer;
begin
    assign(input, 'AGE.INP'); reset(input);
    assign(output, 'AGE.OUT'); rewrite(output);
    readln(n);
    for i := 1 to 120 do count[i] := 0;
    for i := 1 to n do
    begin
        read(age);
        inc(count[age]);
    end;
    m := count[1];
    ans := 1;
    for i := 2 to 120 do
        if count[i] > m then begin
            m := count[i];
            ans := i;
        end;
    write(ans);
end.