27

var
  N, a, m1, m2, m3, m6, x, y, i: integer;

begin
  m1 := 0; m2 := 0; m3 := 0; m6 := 0;
  readln(N);
  for i := 1 to N do
  begin
    readln(a);
    if a mod 2 = 0 then
    begin
      if a mod 3 = 0 then
      begin
        if a > m6 then
          m6 := a
      end
      else
      begin
        if a > m2 then
          m2 := a
      end;
    end
    else
    begin
      if a mod 3 = 0 then
      begin
        if a > m3 then
          m3 := a
        else
      begin
          if a > m1 then
            m1 := a
        end;
      end;
    end;
  end;

  x := m1; y := m6;
  if m2 * m3 > x * y then
  begin
    x := m2;
    y := m3;
  end;
  if m3 * m6 > x * y then
  begin
    x := m3;
    y := m6;
  end;
  if x * y = 0 then
    writeln(0)
  else
    writeln(x, ' ', y);
end.