local mod = 998244353
local mfl = math.floor
local function bmul(x, y)
  local x0, y0 = x % 31596, y % 31596
  local x1, y1 = mfl(x / 31596), mfl(y / 31596)
  return (x1 * y1 * 62863 + (x1 * y0 + x0 * y1) * 31596 + x0 * y0) % mod
end

local function badd(x, y)
  return (x + y) % mod
end

local function bsub(x, y)
  return x < y and x - y + mod or x - y
end

local function modpow(src, pow)
  local res = 1
  while 0 < pow do
    if pow % 2 == 1 then
      res = bmul(res, src)
      pow = pow - 1
    end
    src = bmul(src, src)
    pow = mfl(pow / 2)
  end
  return res
end

local n = io.read("*n")
local d = {}
local mlen = 0
local mma = math.max
for i = 1, n do
  d[i] = io.read("*n")
  mlen = mma(mlen, d[i])
end
local valid = true
if d[1] ~= 0 then
  valid = false
end
for i = 2, n do
  if d[i] == 0 then
    valid = false
  end
end
local t = {}
for i = 1, mlen do
  t[i] = 0
end
if valid then
  for i = 2, n do
    t[d[i]] = t[d[i]] + 1
  end
end
for i = 1, mlen do
  if t[i] == 0 then
    valid = false
  end
end
if not valid then
  print(0)
else
  local ret = 1
  for i = 2, mlen do
    local v = modpow(t[i - 1], t[i])
    ret = bmul(ret, v)
  end
  print(ret)
end
