ll @n, a[1d5], b[3], ans = 1;
rd(a(n));
rep(k, 3) {
	int p = 0;
	b[k] = a[p];
	rep(i, n) {
		if(a[i] <= b[k]) { b[k] = a[i]; p = i; }
	}
	a[p] = 2d9;
}
     if(n     == 1) { ans = b[0]; }
else if(n     == 2) { ans = b[0] * b[1]; }
else if(n % 2 == 0) { ans = min(b[0] * b[1], b[2]); }
wt(ans);