ll x,a,d[101];{rd(a);for(;cin>>a;)++d[a];rep(i,101)rep(j,i)x+=d[i]*d[j]*d[0..j-1];wt(x%=1d9+7);}