/* #region Head */

// #define _GLIBCXX_DEBUG
#include <bits/stdc++.h>
using namespace std;

using ll = long long;
using ull = unsigned long long;
using ld = long double;
using pll = pair<ll, ll>;
template <class T> using vc = vector<T>;
template <class T> using vvc = vc<vc<T>>;
using vll = vc<ll>;
using vvll = vvc<ll>;
using vld = vc<ld>;
using vvld = vvc<ld>;
using vs = vc<string>;
using vvs = vvc<string>;
template <class T, class U> using um = unordered_map<T, U>;
template <class T> using pq = priority_queue<T>;
template <class T> using pqa = priority_queue<T, vc<T>, greater<T>>;
template <class T> using us = unordered_set<T>;

#define REP(i, m, n) for (ll i = (m), i##_len = (ll)(n); i < i##_len; ++(i))
#define REPM(i, m, n) for (ll i = (m), i##_max = (ll)(n); i <= i##_max; ++(i))
#define REPR(i, m, n) for (ll i = (m), i##_min = (ll)(n); i >= i##_min; --(i))
#define REPD(i, m, n, d) for (ll i = (m), i##_len = (ll)(n); i < i##_len; i += (d))
#define REPMD(i, m, n, d) for (ll i = (m), i##_max = (ll)(n); i <= i##_max; i += (d))
#define REPI(itr, ds) for (auto itr = ds.begin(); itr != ds.end(); itr++)
#define ALL(x) begin(x), end(x)
#define SIZE(x) ((ll)(x).size())
#define PERM(c)                                                                                                        \
    sort(ALL(c));                                                                                                      \
    for (bool c##p = 1; c##p; c##p = next_permutation(ALL(c)))
#define UNIQ(v) v.erase(unique(ALL(v)), v.end());

#define endl '\n'
#define sqrt sqrtl
#define floor floorl
#define log2 log2l

constexpr ll INF = 1'010'000'000'000'000'017LL;
constexpr ll MOD = 1'000'000'007LL; // 1e9 + 7
constexpr ld EPS = 1e-12;
constexpr ld PI = 3.14159265358979323846;

template <typename T> istream &operator>>(istream &is, vc<T> &vec) { // vector 入力
    for (T &x : vec) is >> x;
    return is;
}
template <typename T> ostream &operator<<(ostream &os, vc<T> &vec) { // vector 出力 (for dump)
    os << "{";
    REP(i, 0, SIZE(vec)) os << vec[i] << (i == i_len - 1 ? "" : ", ");
    os << "}";
    return os;
}
template <typename T> ostream &operator>>(ostream &os, vc<T> &vec) { // vector 出力 (inline)
    REP(i, 0, SIZE(vec)) os << vec[i] << (i == i_len - 1 ? "\n" : " ");
    return os;
}

template <typename T, typename U> istream &operator>>(istream &is, pair<T, U> &pair_var) { // pair 入力
    is >> pair_var.first >> pair_var.second;
    return is;
}
template <typename T, typename U> ostream &operator<<(ostream &os, pair<T, U> &pair_var) { // pair 出力
    os << "(" << pair_var.first << ", " << pair_var.second << ")";
    return os;
}

// map, um, set, us 出力
template <class T> ostream &out_iter(ostream &os, T &map_var) {
    os << "{";
    REPI(itr, map_var) {
        os << *itr;
        auto itrcp = itr;
        if (++itrcp != map_var.end()) os << ", ";
    }
    return os << "}";
}
template <typename T, typename U> ostream &operator<<(ostream &os, map<T, U> &map_var) { return out_iter(os, map_var); }
template <typename T, typename U> ostream &operator<<(ostream &os, um<T, U> &map_var) {
    os << "{";
    REPI(itr, map_var) {
        auto [key, value] = *itr;
        os << "(" << key << ", " << value << ")";
        auto itrcp = itr;
        if (++itrcp != map_var.end()) os << ", ";
    }
    os << "}";
    return os;
}
template <typename T> ostream &operator<<(ostream &os, set<T> &set_var) { return out_iter(os, set_var); }
template <typename T> ostream &operator<<(ostream &os, us<T> &set_var) { return out_iter(os, set_var); }
template <typename T> ostream &operator<<(ostream &os, pq<T> &pq_var) {
    pq<T> pq_cp(pq_var);
    os << "{";
    if (!pq_cp.empty()) {
        os << pq_cp.top(), pq_cp.pop();
        while (!pq_cp.empty()) os << ", " << pq_cp.top(), pq_cp.pop();
    }
    return os << "}";
}

// dump
#define DUMPOUT cerr
void dump_func() { DUMPOUT << endl; }
template <class Head, class... Tail> void dump_func(Head &&head, Tail &&... tail) {
    DUMPOUT << head;
    if (sizeof...(Tail) > 0) DUMPOUT << ", ";
    dump_func(move(tail)...);
}

// chmax (更新「される」かもしれない値が前)
template <typename T, typename U, typename Comp = less<>> bool chmax(T &xmax, const U &x, Comp comp = {}) {
    if (comp(xmax, x)) {
        xmax = x;
        return true;
    }
    return false;
}

// chmin (更新「される」かもしれない値が前)
template <typename T, typename U, typename Comp = less<>> bool chmin(T &xmin, const U &x, Comp comp = {}) {
    if (comp(x, xmin)) {
        xmin = x;
        return true;
    }
    return false;
}

// ローカル用
#define DEBUG_

#ifdef DEBUG_
#define DEB
#define dump(...)                                                                                                      \
    DUMPOUT << "  " << string(#__VA_ARGS__) << ": "                                                                    \
            << "[" << to_string(__LINE__) << ":" << __FUNCTION__ << "]" << endl                                        \
            << "    ",                                                                                                 \
        dump_func(__VA_ARGS__)
#else
#define DEB if (false)
#define dump(...)
#endif

struct AtCoderInitialize {
    static constexpr int IOS_PREC = 15;
    static constexpr bool AUTOFLUSH = false;
    AtCoderInitialize() {
        ios_base::sync_with_stdio(false), cin.tie(nullptr), cout.tie(nullptr);
        cout << fixed << setprecision(IOS_PREC);
        if (AUTOFLUSH) cout << unitbuf;
    }
} ATCODER_INITIALIZE;

void Yn(bool p) { cout << (p ? "Yes" : "No") << endl; }
void YN(bool p) { cout << (p ? "YES" : "NO") << endl; }

/* #endregion */

/* #region BIT */

template <class T> struct BinaryIndexedTree {
    vector<T> data;

    BinaryIndexedTree(int sz) { data.assign(++sz, 0); }

    T sum(int k) {
        T ret = 0;
        for (++k; k > 0; k -= k & -k) ret += data[k];
        return (ret);
    }

    void add(int k, T x) {
        for (++k; k < SIZE(data); k += k & -k) data[k] += x;
    }
};

/* #endregion */

/* #region SegTree */

template <typename T> // T: 要素
struct SegmentTree {
    using F = function<T(T, T)>; // 要素と要素をマージする関数．max とか．

    ll n; // 木のノード数
    F f; // 区間クエリで使う演算，結合法則を満たす演算．区間最大値のクエリを投げたいなら max 演算．
    T ti; // 値配列の初期値．演算 f に関する単位元．区間最大値なら単位元は 0. (a>0 なら max(a,0)=max(0,a)=a)
    vc<T> dat; // 1-indexed 値配列 (index は木の根から順に 1 | 2 3 | 4 5 6 7 | 8 9 10 11 12 13 14 15 | ...)

    // コンストラクタ．
    SegmentTree() {}
    // コンストラクタ．
    SegmentTree(F f, T ti) : f(f), ti(ti) {}

    // 指定要素数のセグメント木を初期化する
    void init(ll n_) {
        n = 1;
        while (n < n_) n <<= 1;
        dat.assign(n << 1, ti);
    }

    // ベクトルからセグメント木を構築する
    void build(const vc<T> &v) {
        ll n_ = v.size();
        init(n_);
        REP(i, 0, n_) dat[n + i] = v[i];
        REPR(i, n - 1, 1) dat[i] = f(dat[(i << 1) | 0], dat[(i << 1) | 1]);
    }

    // インデックス k の要素の値を x にする．
    void set_val(ll k, T x) {
        dat[k += n] = x;
        while (k >>= 1) dat[k] = f(dat[(k << 1) | 0], dat[(k << 1) | 1]); // 上へ登って更新していく
    }

    // インデックス k の要素の値を取得する．
    T get_val(ll k) { return dat[k + n]; }

    // 半開区間 [a, b) に対するクエリを実行する
    T query(ll a, ll b) {
        if (a >= b) return ti;
        // assert(a<b)

        T vl = ti, vr = ti;
        for (ll l = a + n, r = b + n; l < r; l >>= 1, r >>= 1) {
            if (l & 1) vl = f(vl, dat[l++]);
            if (r & 1) vr = f(dat[--r], vr);
        }
        return f(vl, vr);
    }

    // セグメント木上の二分探索
    template <typename C> int find(ll st, C &check, T &acc, ll k, ll l, ll r) {
        if (l + 1 == r) {
            acc = f(acc, dat[k]);
            return check(acc) ? k - n : -1;
        }
        ll m = (l + r) >> 1;
        if (m <= st) return find(st, check, acc, (k << 1) | 1, m, r);
        if (st <= l && !check(f(acc, dat[k]))) {
            acc = f(acc, dat[k]);
            return -1;
        }
        ll vl = find(st, check, acc, (k << 1) | 0, l, m);
        if (~vl) return vl;
        return find(st, check, acc, (k << 1) | 1, m, r);
    }

    // セグメント木上の二分探索．check(query(st, idx)) が真となる idx を返す．
    template <typename C> int find(ll st, C &check) {
        T acc = ti;
        return find(st, check, acc, 1, 0, n);
    }
};
/* #endregion */

// 座圧なし通常の2Dセグ木
// 空間 O(HW) なので注意
// verified with: yukicoder contest 259 (id=274) #C (No.1141)

/* #region SegTree2D */

template <typename structure_t, typename get_t, typename update_t> struct SegmentTree2D {

    using merge_f = function<get_t(get_t, get_t)>;
    using range_get_f = function<get_t(structure_t &, int, int)>;
    using update_f = function<void(structure_t &, int, update_t)>;

    int height, width;
    int sz_h, sz_w;      // 2べきに補正した x 方向要素数
    vc<structure_t> seg; // 同じ x 座標になる y 方向データを載せたセグ木を x 方向について
    const merge_f f;
    const range_get_f g;
    const update_f h;
    const get_t identity;

    // n: x 方向要素数
    SegmentTree2D(int height, int width, const merge_f &f, const range_get_f &g, const update_f &h,
                  const get_t &identity)
        : height(height), width(width), sz_h(1), sz_w(1), f(f), g(g), h(h), identity(identity) {
        while (sz_h < height) sz_h <<= 1;
        while (sz_w < width) sz_w <<= 1;
    }

    void update(int x, int y, update_t z, int k, int l, int r) {
        if (r <= x || x + 1 <= l) return;
        if (x <= l && r <= x + 1) {
            h(seg[k], y, z); // 今見ているノード k だけ更新すればよい場合
            return;
        }
        // y 座標を子ノード版圧縮値に変換しつつ，再帰で子ノード更新
        update(x, y, z, 2 * k + 0, l, (l + r) >> 1);
        update(x, y, z, 2 * k + 1, (l + r) >> 1, r);
        h(seg[k], y, z); // 現ノード更新
    }

    void update(int x, int y, update_t z) {
        update(x, y, z, 1, 0, sz_w); // 根ノード 1，区間 [0, sz_w)
    }

    get_t query(int xs, int xt, int ys, int yt, int k, int l, int r) {
        if (xs >= r || xt <= l) return identity;
        if (xs <= l && r <= xt) return g(seg[k], ys, yt); // 今見ているノード k だけで結果がわかる場合
        // y 座標を子ノード版圧縮値に変換しつつ再帰+マージ
        return f(query(xs, xt, ys, yt, 2 * k + 0, l, (l + r) >> 1), query(xs, xt, ys, yt, 2 * k + 1, (l + r) >> 1, r));
    }

    // 半開区間で渡す
    get_t query(int xs, int xt, int ys, int yt) {
        return query(xs, xt, ys, yt, 1, 0, sz_w); // 根ノード 1，区間 [0, sz_w)
    }

    void build() {
        REP(k, 0, 2 * sz_w) {
            seg.emplace_back(f, identity);
            seg[k].init(sz_h);
        }
    }

    // data[y][x] = (上から y, 左から x)
    void build(vc<vc<get_t>> &data) {
        REP(k, 0, 2 * sz_w) seg.emplace_back(f, identity);
        REP(x, 0, sz_w) {
            vc<get_t> _data(sz_h, identity);
            if (x < width) REP(y, 0, height) _data[y] = data[y][x];
            seg[sz_w + x].build(_data);
        }
        REPR(k, sz_w - 1, 1) {
            vc<get_t> _data(sz_h);
            REP(y, 0, sz_h) _data[y] = f(seg[(k << 1) | 0].get_val(y), seg[(k << 1) | 1].get_val(y));
            seg[k].build(_data);
        }
    }
};

/* #endregion */

// Problem
void solve() {
    ll n;
    cin >> n;

    vc<ll> nums(n);
    REP(i, 0, n) {
        string inputstr;
        ll num = 0;
        ll virtualDenominator = 1;
        bool dotExist = false;

        cin >> inputstr;
        for (int i = 0; i < SIZE(inputstr); i++) {
            char temp = inputstr[i];
            if (temp == '.') {
                dotExist = true;
            } else { //  if (temp <= '9' && temp >= '0')
                if (dotExist) {
                    virtualDenominator *= 10;
                }
                num *= 10;
                num += temp - '0';
            }
        }
        // dump(num, virtualDenominator);

        ll prod = 1'000'000'000;
        prod /= virtualDenominator;
        nums[i] = num * prod;
    }
    // dump(nums);

    vc<pll> twofives(n);
    REP(i, 0, n) {
        ll num = nums[i];
        ll two = 0;
        ll five = 0;
        while (num > 0 && num % 2 == 0) {
            num /= 2;
            two++;
        }
        while (num > 0 && num % 5 == 0) {
            num /= 5;
            five++;
        }
        chmin(two, 18);
        chmin(five, 18);
        twofives[i] = {two, five};
    }
    // dump(twofives);

    using ST = SegmentTree<ll>; // 載せられる側の構造
    auto f = [](ll a, ll b) { return a + b; };
    auto g = [](ST &k, int ys, int yt) { return k.query(ys, yt); };
    auto h = [](ST &k, int y, ll data) { k.set_val(y, k.get_val(y) + data); };

    SegmentTree2D<ST, ll, ll> seg(19, 19, f, g, h, 0);
    seg.build();

    ll ret = 0;
    // dump(sz_two, sz_five);
    REP(i, 0, n) {
        auto [two, five] = twofives[i]; //
        ll two_req = max(0LL, 9 * 2 - two);
        ll five_req = max(0LL, 9 * 2 - five);

        ll cnt = seg.query(two_req, 19, five_req, 19);
        ret += cnt;
        seg.update(two, five, 1);
        // dump(i, two, five, two_req, five_req, cnt);
    }
    cout << ret << endl;
}

// entry point
int main() {
    solve();
    return 0;
}


Measured memory_bytes: 7936