#include <limits.h>
#include <math.h>
#include <stdio.h>
#include <stdlib.h>
#include <string.h>
#include <time.h>

// 内部定数
#define D_MOD			(long long)1000000007					// 除数(10の9乗+7)
#define D_LEN_MAX		100										// 最大長さ数

// 内部変数
static FILE *szpFpI;											// 入力
static int si1Cnt[D_LEN_MAX + 1];								// 本数[長さ]

// 内部変数 - テスト用
#ifdef D_TEST
	static int siRes;
	static FILE *szpFpA;
#endif

// 実行メイン
int
fMain(
	int piTNo					// <I> テスト番号 1～
)
{
	int i, j, k;
	char lc1Buf[1024], lc1Out[1024];

	// データ - 初期化
	memset(si1Cnt, 0, sizeof(si1Cnt));							// 本数[長さ]

	// 入力 - セット
#ifdef D_TEST
	sprintf(lc1Buf, ".\\Test\\T%d.txt", piTNo);
	szpFpI = fopen(lc1Buf, "r");
	sprintf(lc1Buf, ".\\Test\\A%d.txt", piTNo);
	szpFpA = fopen(lc1Buf, "r");
	siRes = 0;
#else
	szpFpI = stdin;
#endif

	// 本数 - 取得
	int liCnt;
	fgets(lc1Buf, sizeof(lc1Buf), szpFpI);
	sscanf(lc1Buf, "%d", &liCnt);

	// 本数[長さ] - 取得
	for (i = 0; i < liCnt; i++) {
		int liLen;
		fscanf(szpFpI, "%d", &liLen);
		si1Cnt[liLen]++;
	}
	fgets(lc1Buf, sizeof(lc1Buf), szpFpI);

	// 組み合わせ数 - 取得
	long long llSum = 0;
	for (i = 1; i <= D_LEN_MAX - 2; i++) {
		for (j = i + 1; j <= D_LEN_MAX - 1; j++) {
			for (k = j + 1; k <= D_LEN_MAX; k++) {
				llSum += (long long)si1Cnt[i] * (long long)si1Cnt[j] * (long long)si1Cnt[k];
				llSum %= D_MOD;
			}
		}
	}

	// 結果 - セット
	sprintf(lc1Out, "%lld\n", llSum);

	// 結果 - 表示
#ifdef D_TEST
	fgets(lc1Buf, sizeof(lc1Buf), szpFpA);
	if (strcmp(lc1Buf, lc1Out)) {
		siRes = -1;
	}
#else
	printf("%s", lc1Out);
#endif

	// 残データ有無
#ifdef D_TEST
	lc1Buf[0] = '\0';
	fgets(lc1Buf, sizeof(lc1Buf), szpFpA);
	if (strcmp(lc1Buf, "")) {
		siRes = -1;
	}
#endif

	// テストファイルクローズ
#ifdef D_TEST
	fclose(szpFpI);
	fclose(szpFpA);
#endif

	// テスト結果
#ifdef D_TEST
	if (siRes == 0) {
		printf("OK %d\n", piTNo);
	}
	else {
		printf("NG %d\n", piTNo);
	}
#endif

	return 0;
}

int
main()
{

#ifdef D_TEST
	int i;
	for (i = D_TEST_SNO; i <= D_TEST_ENO; i++) {
		fMain(i);
	}
#else
	fMain(0);
#endif

	return 0;
}