program bai_giai;
uses crt;
var A:array[1..10000] of real;
    n,i,j,d:integer;
    tg:real;
begin
    clrscr;
    readln(n);
    for i:=1 to n do read(A[i]);
    for i:=1 to n-1 do
        for j:=i+1 to n do
            if A[i]>A[j] then
                begin
                    tg:=A[i];
                    A[i]:=A[j];
                    A[j]:=tg;
                end;
    d:=1;  write(A[1]:0:2,' ');
    for i:=2 to n do
        begin
            if A[i]=A[i-1] then write(A[i]:0:2,' ')
            else if (A[i]<>A[i-1]) and (d<3) then
                begin
                    write(A[i]:0:2,' ');
                    d:=d+1;
                end;
            if (d>=3) and (A[i]<>A[i+1]) then break;
        end;
    readln; readln;
end.

uses crt;
var i,j,n,d:longword;
    a:array[1..100000] of real;
procedure qsort(l,r:longword);
var i,j:longword;
    x,t:real;
begin
    i:=l;j:=r;x:=a[(l+r) div 2];
    repeat
        while a[i] < x do inc(i);
        while x < a[j] do dec(j);
        if i<=j then
           begin
               t:=a[i];a[i]:=a[j];a[j]:=t;
               inc(i);dec(j);
           end;
    until i>j;
    if l<j then qsort(l,j);
    if i<r then qsort(i,r);
end;
begin
    clrscr;
    readln(n);
    for i:=1 to n do read(a[i]);
    qsort(1,n);
    d:=0;i:=1;
    while (i<=n) and (d<3) do
      begin
          j:=i;
          write(a[j]:0:2,' ');
          while a[j]=a[j+1] do
              begin
                  inc(j);
                  write(a[j]:0:2,' ');
              end;
          d:=d+j-i+1;
          i:=j+1;
      end;
readln;readln;
end.