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

using ll = long long;
using ld  = long double;
using pll = pair<ll, ll>;
using pld = pair<ld, ld>;
const int INF=1e9+7;
const ll LINF=9223372036854775807;
const ll MOD=1e9+7;
const ld PI=acos(-1);
const ld EPS = 1e-10; //微調整用（EPSより小さいと0と判定など）

int ii() { int x; if (scanf("%d", &x)==1) return x; else return 0; }
long long il() { long long x; if (scanf("%lld", &x)==1) return x; else return 0; }
string is() { string x; cin >> x; return x; }
char ic() { char x; cin >> x; return x; }
void oi(int x) { printf("%d ", x); }
void ol(long long x) { printf("%lld ", x); }
void od_nosp(double x) { printf("%.15f", x); } // 古い問題用
void od(double x) { printf("%.15f ", x); }
// long doubleで受け取り、fをLfなどに変えて出力すると、変な数値が出る
// それをなんとかするには独自の出力を作らなければならなそう
void os(const string &s) { printf("%s ", s.c_str()); }
void oc(const char &c) { printf("%c ", c); }
#define o_map(v){cerr << #v << endl; for(const auto& xxx: v){cout << xxx.first << " " << xxx.second << "\n";}} //動作未確認
void br() { putchar('\n'); }

// #define gcd __gcd //llは受け取らない C++17~のgcdと違うので注意
// int lcm(int a, int b){return a / gcd(a, b) * b;}
#define begin_end(a) a.begin(),a.end() //sort(begin_end(vec));
#define REP(i,m,n) for(ll i=(ll)(m) ; i < (ll)(n) ; i++ )
#define DREP(i,m,n) for(ll i=(ll)(m) ; i > (ll)(n) ; i-- )
#define rep(i,n) REP(i,0,n)
#define m_p(a,b) make_pair(a,b)
#define SORT_UNIQUE(c) (sort(c.begin(),c.end()), c.resize(distance(c.begin(),unique(c.begin(),c.end()))))
#define p_b push_back
#define SZ(x) ((ll)(x).size()) //size()がunsignedなのでエラー避けに
#define endk '\n'


// coutによるpairの出力（空白区切り）
template<typename T1, typename T2> ostream& operator<<(ostream& s, const pair<T1, T2>& p) {return s << "(" << p.first << " " << p.second << ")";}
// coutによるvectorの出力（空白区切り）
template<typename T> ostream& operator<<(ostream& s, const vector<T>& v) {
  int len = v.size();
  for (int i = 0; i < len; ++i) {
    s << v[i]; if (i < len - 1) s << " "; //"\t"に変えるとTabで見やすく区切る
  }
  return s;
}
// coutによる多次元vectorの出力（空白区切り）
template<typename T> ostream& operator<<(ostream& s, const vector< vector<T> >& vv) {
  int len = vv.size();
  for (int i = 0; i < len; ++i) {
    s << vv[i] << endl;
  }
  return s;
}

//最大値、最小値の更新。更新したor等しければtrueを返す
template<typename T>
bool chmax(T& a, T b){return (a = max(a, b)) == b;}
template<typename T>
bool chmin(T& a, T b){return (a = min(a, b)) == b;}

//4近傍（上下左右） rep(i, 2) にすると右・下だけに進む
vector<int> dx_4 = {1, 0, -1, 0};
vector<int> dy_4 = {0, 1, 0, -1};

// -------- template end - //


// - library ------------- //


// 文字列形式の実数（35.47, 5, -2.999 など）を、整数に置き換える
// その際、10^decimal_digit(小数部の桁数上限) を掛けて返す
// decimal_digit := 入力される実数における 小数部の桁数の上限
ll realstr_toll(string str, ll decimal_digit){
  if (str.find('.') == string::npos){
    // 元々整数だった場合 : str *= 10^decimal_digit
    str += string(decimal_digit, '0');
  }
  else{
    // 小数部を含む場合 : str *= 10^(decimal_digit - 入力された実数の小数部の桁数)
    ll decim = str.length() - str.find('.') - 1;
    str += string(decimal_digit - decim, '0');
    // . を消去
    str = regex_replace(str, regex("\\."), "");
  }
  return stoll(str);
}

// クエリに答える関数
// query(h1, h2, w1, w2) := [h1, h2) × [w1, w2) の長方形区域の和
// cs の添字を考えず、pre_cs の添字で考えればいい（csの添字はズレている）
ll query(ll h1, ll h2, ll w1, ll w2, vector<vector<ll>> const &cs2d) {
  return cs2d[h2][w2] - cs2d[h1][w2] - cs2d[h2][w1] + cs2d[h1][w1];
}

// --------- library end - //


int main(){

  ll N = il();
  
  // *= 10^9 した整数にして入れる
  vector<ll> as;
  rep(i, N){
    as.push_back(realstr_toll(is(), 9));
  }

  // けんちょんさん式二次元累積和
  // (H, W)サイズの vector pre_cs を、(H+1, W+1)サイズの vector cs へと二次元累積和

  ll H = 19;
  ll W = 19;
  vector<vector<ll> > pre_cs(H, vector<ll>(W, 0));
  for ( ll a : as ){
    // 素因数として含まれる 2^x, 5^y を、pre_cs[x][y] という形で入れていく
    // ^18 より上は、^18 と同じとみなす
    ll x = 0;
    ll y = 0;
    while (a % 2 == 0 && x < 18){
      a /= 2;
      x++;
    }
    while (a % 5 == 0 && y < 18){
      a /= 5;
      y++;
    }
    pre_cs[x][y]++;
  }

  // 累積和済みの 2次元vector
  // cs[0][w], cs[h][0] は 番兵
  // 添字がズレて、「2^x, 5^y の素因数を持つ数字の数」は cs[x+1][y+1] で呼び出すことになっているので注意
  vector<vector<ll> > cs(H+1, vector<ll>(W+1, 0));
  rep(i, H) rep(j, W){
    cs[i+1][j+1] = cs[i][j+1] + cs[i+1][j] - cs[i][j] + pre_cs[i][j];
  }

  ll ans = 0;
  rep(h, 19) rep(w, 19){
    ll x = h; // 2^x
    ll y = w; // 5^x
    ll cnt = pre_cs[h][w];
    if (cnt == 0) continue;

    // 18-x 以上の 2 を 素因数に持ち、18-y 以上の 5 を素因数に持つ数字の数
    // ただし、今回見ている数字自身が 18-x 以上の 2 を 素因数に持ち、18-y 以上の 5 を素因数に持つ数字 である場合、自分自身と掛けないようにする
    ll multiplier = query(18-x, 19, 18-y, 19, cs);
    if (x >= 18-x && y >= 18-y) multiplier -= 1;
    ans += cnt * multiplier;
  }
  // ここまで、掛ける順序を区別して数え上げてしまっているので、/= 2
  ans /= 2;

  cout << ans << endk;


}

Measured memory_bytes: 5484