#include <cstdio>
#include <cstring>
#include <iostream>
#include <string>
#include <cmath>
#include <bitset>
#include <vector>
#include <map>
#include <set>
#include <queue>
#include <deque>
#include <algorithm>
#include <complex>
#include <unordered_map>
#include <unordered_set>
#include <random>
#include <cassert>
#include <fstream>
#define popcount __builtin_popcount
using namespace std;
typedef long long int ll;
typedef pair<ll, ll> P;
const ll MOD=1e9+7;
ll powmod(ll a, ll k){
    ll ap=a, ans=1;
    while(k){
        if(k&1){
            ans*=ap;
            ans%=MOD;
        }
        ap=ap*ap;
        ap%=MOD;
        k>>=1;
    }
    return ans;
}
ll inv(ll a){
	return powmod(a, MOD-2);
}
typedef complex<double> C;
const double PI=acos(-1.0);
vector<C> tmp;
size_t sz;
vector<C> fft(vector<C> a, bool inv=false){
    size_t mask=sz-1;
    size_t p=0;
    for(size_t i=sz>>1; i>0; i>>=1){
        auto& cur=((p&1) ? tmp : a);
        auto& nex=((p&1) ? a : tmp);
        C e=polar(1.0, 2*PI*i*(inv ? -1.0 : 1.0)/sz);
        C w=1;
        for(size_t j=0; j<sz; j+=i){
            for(size_t k=0; k<i; k++){
                nex[j+k]=cur[((j<<1)&mask)+k]+w*cur[(((j<<1)+i)&mask)+k];
            }
            w*=e;
        }
        p++;
    }
    if(p&1) swap(a, tmp);
    if(inv) for(size_t i=0; i<sz; i++) a[i]/=sz;
    return a;
}
vector<ll> convolute(vector<int> a, vector<int> b){
    size_t m=a.size()+b.size()-1;
    sz=1;
    while(sz<m) sz<<=1;
    tmp.resize(sz);
    vector<C> A(sz), B(sz);
    for(size_t i=0; i<a.size(); i++) A[i]=C{(double)a[i], 0};
    for(size_t i=0; i<b.size(); i++) B[i]=C{(double)b[i], 0};
    A=fft(A); B=fft(B);
    for(size_t i=0; i<sz; i++) A[i]*=B[i];
    A=fft(A, true);
    vector<ll> ans(m);
    for(size_t i=0; i<m; i++) ans[i]=round(A[i].real());
    return ans;
}
bool comp(P x, P y){
     return (double)y.second*log((double)y.first)-(double)x.second*log((double)x.first)+log((double)(y.first+y.second))-log((double)(x.first+x.second))>0;
}
int main()
{
    int n; cin>>n;
    int a[100010];
    vector<int> c(100001);
    for(int i=0; i<n; i++){
        cin>>a[i];
        c[a[i]]++;
    }
    ll s=1;
    ll p=0;
    for(int i=n-1; i>=0; i--){
        (s*=powmod(a[i], p))%=MOD;
        p+=a[i];
    }
    vector<ll> v=convolute(c, c);
    for(int i=0; i<n; i++){
        v[2*a[i]]--;
    }
    for(ll i=2; i<=200000; i++){
        v[i]/=2;
        (s*=powmod(i, v[i]))%=MOD;
    }
    int mn=a[n-1];
    P q[100010];
    for(int i=n-2; i>=0; i--){
        q[i]=P(a[i], mn);
        mn=min(mn, a[i]);
    }
    P p0=*min_element(q, q+n-1, comp);
    ll m=(p0.first+p0.second)*powmod(p0.first, p0.second)%MOD;
    (s*=inv(m))%=MOD;
    cout<<s<<endl;
    return 0;
}