#include<bits/stdc++.h>
#define ff first
#define ss second
#define pb push_back
typedef long long ll;
using namespace std;
typedef pair<int,int> pii;

int mod=998244353;
inline int add(int x,int y){int ret=x+y;if(ret>=mod)ret-=mod;return ret;}
inline int sub(int x,int y){int ret=x-y;if(ret<0)ret+=mod;return ret;}
inline int mul(int x,int y){return ((ll)x*y)%mod;}
inline int step(int base,int pw){int ret=1;while(pw){if(pw&1)ret=mul(ret,base);base=mul(base,base);pw>>=1;}return ret;}
inline int invv(int x){return step(x,mod-2);}

typedef double ld;

const int maxd=2e6+10;
const int maxn=2e5+10;


int n;

const int nmods=2;
int mods[nmods]={998244353, (int)1e9+7};
struct bnum{

    bnum(){
        for(int i=0;i<nmods;i++){
            a[i]=0;
        }
    }
    bnum(string s){
        for(int i=0;i<nmods;i++){
            mod=mods[i];
            a[i]=0;
            for(int j=0;j<s.size();j++){
                a[i]=mul(a[i],10);
                a[i]=add(a[i],s[j]-'0');
            }
        }
    }

    bnum operator - (bnum& b){
        bnum ret;
        for(int i=0;i<nmods;i++){
            mod=mods[i];
            ret.a[i]=sub(a[i],b.a[i]);
        }
        return ret;
    }
    bnum operator + (bnum& b){
        bnum ret;
        for(int i=0;i<nmods;i++){
            mod=mods[i];
            ret.a[i]=add(a[i],b.a[i]);
        }
        return ret;
    }

    bool operator <(const bnum& b)const{
        for(int i=0;i<nmods;i++){
            if(a[i]==b.a[i])continue;
            return a[i]<b.a[i];
        }
        return false;
    }

    int a[nmods];
};

string s[maxn];
bool numcmp(string& a,string& b){
    if(a.size()!=b.size())return a.size()<b.size();
    for(int i=0;i<a.size();i++){
        if(a[i]==b[i])continue;
        return a[i]<b[i];
    }
    return false;
}

bnum a[maxn];
vector<bnum>bucket[maxd+10];


void prek(){

    for(int i=0;i<maxd+10;i++)bucket[i].reserve(8);

    bucket[1].pb(bnum("1"));

    bnum p1("1"),p2("1");
    ld digs1=log10(1);
    ld digs2=log10(1);
    int cnt = 0;
    bnum nxt;
    while(((int)digs2+1)<maxd){
        ld digs = digs1 + log10(1+pow(10,digs2-digs1));
        nxt= p1+p2;
        bucket[((int)digs2+1)].pb(nxt);

        p1=p2;
        p2=nxt;

        digs1=digs2;
        digs2=digs;

        cnt++;
    }

    ///printf("%d CNT\n",cnt);
}

int main(){

    ///freopen("test.txt","r",stdin);

    prek();
    //return 0;

    scanf("%d",&n);
    for(int i=0;i<n;i++){
        cin>>s[i];
    }
    sort(s,s+n,numcmp);

    for(int i=0;i<n;i++){
        a[i]=bnum(s[i]);
    }

    ll rez=0;
    map<bnum,ll>mapa;
    for(int i=0;i<n;i++){

        int d=s[i].size();
        int lp=max(1,d-2);
        int rp=min(d+2,maxd);

        for(int j=lp;j<=rp;j++){
            for(int k=0;k<bucket[j].size();k++){
                bnum pom = bucket[j][k]-a[i];
                if(mapa.find(pom)==mapa.end())continue;
                rez+=mapa[pom];
            }
        }

        mapa[a[i]]++;
    }
    printf("%lld\n",rez);

    return 0;
}