def is_ok(a,b,c):
    return L[a] < L[b] + L[c]
def meguru_bisect(ng, ok, a, b):
    '''
    初期値のng,okを受け取り,is_okを満たす最小(最大)のokを返す
    まずis_okを定義すべし
    ng ok は  とり得る最小の値-1 とり得る最大の値+1
    最大最小が逆の場合はよしなにひっくり返す
    '''
    while (abs(ok - ng) > 1):
        mid = (ok + ng) // 2
        if is_ok(a, b, mid):
            ok = mid
        else:
            ng = mid
    return ok
N = int(input())
L = sorted(list(map(int, input().split())), reverse=True)
ans = 0
for a in range(N):
    for b in range(a+1, N):
        ans += meguru_bisect(N,b,a,b)-b
print(ans) def is_ok(a,b,c):
    return L[a] < L[b] + L[c] is_ok return L[a] < L[b] + L[c] L[a] < L[b] + L[c] L[a] L a L[b] + L[c] L[b] L b L[c] L c a a b b c c def meguru_bisect(ng, ok, a, b):
    '''
    初期値のng,okを受け取り,is_okを満たす最小(最大)のokを返す
    まずis_okを定義すべし
    ng ok は  とり得る最小の値-1 とり得る最大の値+1
    最大最小が逆の場合はよしなにひっくり返す
    '''
    while (abs(ok - ng) > 1):
        mid = (ok + ng) // 2
        if is_ok(a, b, mid):
            ok = mid
        else:
            ng = mid
    return ok meguru_bisect '''
    初期値のng,okを受け取り,is_okを満たす最小(最大)のokを返す
    まずis_okを定義すべし
    ng ok は  とり得る最小の値-1 とり得る最大の値+1
    最大最小が逆の場合はよしなにひっくり返す
    ''' while (abs(ok - ng) > 1):
        mid = (ok + ng) // 2
        if is_ok(a, b, mid):
            ok = mid
        else:
            ng = mid
     abs(ok - ng) > 1 abs(ok - ng) abs ok - ng ok ng 1 mid = (ok + ng) // 2 mid (ok + ng) // 2 ok + ng ok ng 2 if is_ok(a, b, mid):
            ok = mid
        else:
            ng = mid
     is_ok(a, b, mid) is_ok a b mid ok = mid ok mid ng = mid ng mid return ok ok ng ng ok ok a a b b N = int(input()) N int(input()) int input() input L = sorted(list(map(int, input().split())), reverse=True) L sorted(list(map(int, input().split())), reverse=True) sorted list(map(int, input().split())) list map(int, input().split()) map int input().split() ().split () input split reverse=True reverse True ans = 0 ans 0 for a in range(N):
    for b in range(a+1, N):
        ans += meguru_bisect(N,b,a,b)-b a range(N) range N for b in range(a+1, N):
        ans += meguru_bisect(N,b,a,b)-b b range(a+1, N) range a+1 a 1 N ans += meguru_bisect(N,b,a,b)-b ans meguru_bisect(N,b,a,b)-b meguru_bisect(N,b,a,b) meguru_bisect N b a b b print(ans) print ans ans = 0 0 ans ans += meguru_bisect(N,b,a,b)-b meguru_bisect(N,b,a,b)-b ans def meguru_bisect(ng, ok, a, b):
    '''
    初期値のng,okを受け取り,is_okを満たす最小(最大)のokを返す
    まずis_okを定義すべし
    ng ok は  とり得る最小の値-1 とり得る最大の値+1
    最大最小が逆の場合はよしなにひっくり返す
    '''
    while (abs(ok - ng) > 1):
        mid = (ok + ng) // 2
        if is_ok(a, b, mid):
            ok = mid
        else:
            ng = mid
    return ok def meguru_bisect(ng, ok, a, b):
    '''
    初期値のng,okを受け取り,is_okを満たす最小(最大)のokを返す
    まずis_okを定義すべし
    ng ok は  とり得る最小の値-1 とり得る最大の値+1
    最大最小が逆の場合はよしなにひっくり返す
    '''
    while (abs(ok - ng) > 1):
        mid = (ok + ng) // 2
        if is_ok(a, b, mid):
            ok = mid
        else:
            ng = mid
    return ok meguru_bisect L = sorted(list(map(int, input().split())), reverse=True) sorted(list(map(int, input().split())), reverse=True) L def is_ok(a,b,c):
    return L[a] < L[b] + L[c] def is_ok(a,b,c):
    return L[a] < L[b] + L[c] is_ok N = int(input()) int(input()) N
def is_ok(a,b,c):
    return L[a] < L[b] + L[c]
def meguru_bisect(ng, ok, a, b):
    '''
    初期値のng,okを受け取り,is_okを満たす最小(最大)のokを返す
    まずis_okを定義すべし
    ng ok は  とり得る最小の値-1 とり得る最大の値+1
    最大最小が逆の場合はよしなにひっくり返す
    '''
    while (abs(ok - ng) > 1):
        mid = (ok + ng) // 2
        if is_ok(a, b, mid):
            ok = mid
        else:
            ng = mid
    return ok
N = int(input())
L = sorted(list(map(int, input().split())), reverse=True)
ans = 0
for a in range(N):
    for b in range(a+1, N):
        ans += meguru_bisect(N,b,a,b)-b
print(ans)
