program TimTichLonNhat;
var
  inputFile, outputFile: Text;
  n, i, j, k: integer;
  maxProduct, currentProduct: int64;
  numbers: array of integer;
  selectedNumbers: array[1..5] of integer;

begin
   Assign(inputFile, 'Caul.INP');
  Assign(outputFile, 'Caul.OUT');
  Reset(inputFile);
  Rewrite(outputFile);
  ReadLn(inputFile, n);
  SetLength(numbers, n);
  for i := 0 to n - 1 do
    Read(inputFile, numbers[i]);
  maxProduct := -1;
  for i := 0 to n - 5 do
  begin
    currentProduct := 1;
    for j := i to i + 4 do
      currentProduct := currentProduct * numbers[j];
    // So sánh tích hiện tại với tích lớn nhất đã tìm thấy
    if currentProduct > maxProduct then
    begin
      maxProduct := currentProduct;
      // Lưu các số đã chọn
      for k := 1 to 5 do
        selectedNumbers[k] := numbers[i + k - 1];
    end;
  end;
  WriteLn(outputFile, maxProduct);
  for i := 1 to 5 do
    Write(outputFile, selectedNumbers[i], ' ');
  Close(inputFile);
  Close(outputFile);
end.