X = gets.to_i
A = gets.split.map &:to_i
mod = 10**9+7
acc = []
A.each do |a|
    acc << (acc[-1] ? (acc[-1] + a) % mod : a % mod)
end
ans = 0
for i in 0..A.size-2
    ans += ((A[i] % mod) * (acc[-1] - acc[i] % mod)) % mod
    ans %= mod
end
p ans