#include <iostream>
#include <map>
#include <vector>
using namespace std;
#include <atcoder/modint>
#include <atcoder/convolution>
using mint = atcoder::modint998244353;

int main() {
    const mint J = 86583718; // 虚数単位

    int N;
    cin >> N;
    vector<int> A(N);
    for (auto &a : A) cin >> a;
    map<int, int> mp;
    for (auto a : A) mp[a]++;

    mint ret = 0;
    for (auto [a, deg] : mp) {
        // z = 0 + a j が deg 位の極 留数定理
        vector<mint> f{1};
        for (auto b : A) {
            if (b != a) {
                f = atcoder::convolution(f, vector<mint>{(mint(a) + b) * J, 1});
                f = atcoder::convolution(f, vector<mint>{(mint(a) - b) * J, 1});
            } else {
                f = atcoder::convolution(f, vector<mint>{(b + b) * J, 1});
            }
        }
        vector<mint> finv(deg);
        finv[0] = 1 / f[0];
        for (int i = 1; i < deg; i++) {
            mint tmp = 0;
            for (int j = 0; j < i; j++) tmp += finv[j] * f[i - j];
            finv[i] = -tmp / f[0];
        }
        ret += finv[deg - 1];
    }
    cout << (ret * 2 * J).val() << '\n';
}