import sequtils
template times*(n:int,body) = (for _ in 0..<n: body)


proc getchar_unlocked():char {. importc:"getchar_unlocked",header: "<stdio.h>" .}
proc scan(): int =
  var minus = false
  block:
    let k = getchar_unlocked()
    if k == '-' : minus = true
    else: result = 10 * result + k.ord - '0'.ord
  while true:
    let k = getchar_unlocked()
    if k < '0' or k > '9': break
    result = 10 * result + k.ord - '0'.ord
  if minus: result *= -1

let n = scan()
var ansMin = scan()
var ansMax = ansMin
(n-1).times:
  let x = scan()
  var plus = ansMax + x.abs()
  var minus = ansMin - x.abs()
  var mult1 = ansMax * x
  var mult2 = ansMin * x
  var div1 = if x == 0: mult1 else: ansMax div x
  var div2 = if x == 0: mult2 else: ansMin div x
  ansMin = min([plus,minus,mult1,mult2,div1,div2])
  ansMax = max([plus,minus,mult1,mult2,div1,div2])
echo ansMax