Var
   i,j,k,m,n,t: longint;
   p,id: array [1..3] of longint;
   v: array [1..32000] of longint;

Begin
     readln(input,n);
     m:= 3;
     fillchar(v, sizeof(v), 0);
     for i:= 1 to n do
         begin
         read(input,t);
         Inc(v[t]);
         if (t>m) then m:= t;
         end;
     p[1]:= -1; p[2]:= -1; p[3]:= -1;
     for i:= 1 to m do
         for j:= 1 to 3 do
             if (v[i]>p[j]) then
                begin
                for k:= 3 downto j+1 do
                    begin
                    p[k]:= p[k-1];
                    id[k]:= id[k-1];
                    end;
                id[j]:= i;
                p[j]:= v[i];
                break;
                end;
     for i:= 1 to 3 do
         write(output,id[i],' ');
End.