' Imports System.Collections.Generic
Imports System.IO
Imports System.Linq
Imports System.Text

Class Main
    Public Shared Sub Main()
        Dim sc As New FastScanner(Console.OpenStandardInput())
        Dim N As Integer = sc.nextInt()
        Dim d As Integer() = sc.intArray(N)
        Dim com As List(Of List(Of Integer)) = Combination(d, 2)
        Dim ans As Integer = 0
        For i As Integer = 0 To com.Count -1
            ans += com(i)(0) * com(i)(1)
        Next
        Console.WriteLine(ans)
        Return
    End Sub
    Shared Function Combination(ByVal nums As Integer(), ByVal k As Integer) As List(Of List(Of Integer))
        Dim ret As New List(Of List(Of Integer))
        If nums.Length < k Then
            return ret
        End If
        If k = 1 Then
            For i As Integer = 0 To nums.Length - 1
                ret.Add(New List(Of Integer)(New Integer() {nums(i)}))
            Next
        Else
            For i As Integer = 0 To nums.Length - k
                Dim cur As Integer() = New Integer(nums.Length - i - 2) {}
                Array.Copy(nums, i + 1, cur, 0, nums.Length - i - 1)
                Dim row As List(Of List(Of Integer)) = combination(cur, k - 1)
                For j As Integer = 0 To row.Count - 1
                    row(j).Insert(0, nums(i))
                    ret.Add(row(j))
                Next
            Next
        End If
        Return ret
    End Function
End Class

' FastScanner start
Public Class FastScanner
    Public readonly str As Stream
    Private readonly buf(1024 - 1) As Byte
    Private len, ptr As Integer
    Public isEof As Boolean = False
    Public Sub New(stream As Stream)
        str = stream
        Exit Sub
    End Sub
    Private Function enumerateInt(n As Integer) As Integer()
        Dim a(n - 1) As Integer
        For i As Integer = 0 To n - 1
            a(i) = nextInt()
        Next
        Return a
    End Function
    Private Function enumerateLong(n As Integer) As Long()
        Dim a(n - 1) As Long
        For i As Integer = 0 To n - 1
            a(i) = nextLong()
        Next
        Return a
    End Function
    Private Function enumerateChar(n As Integer) As Char()
        Dim a(n - 1) As Char
        For i As Integer = 0 To n - 1
            a(i) = nextChar()
        Next
        Return a
    End Function
    Public Function nextChar() As Char
        Dim b As Byte = 0
        Do
            b = read()
        Loop While (b < 33 OrElse 126 < b) AndAlso Not isEof
        Return Convert.ToChar(b)
    End Function
    Public Function nextInt() As Integer
        Return if(isEof, Integer.MinValue, Ctype(nextLong(), Integer))
    End Function
    Public Function nextLong() As Long
        If isEof
            Return Long.MinValue
        End If
        Dim ret As Long = 0
        Dim b As Byte = 0
        Dim ng As Boolean = False
        Do
            b = read()
        Loop While b <> Asc("-"c) AndAlso (b < Asc("0"c) OrElse Asc("9"c) < b)
        If b = Asc("-"c)
            ng = true
            b = read()
        End If
        While True
            If b < Asc("0"c) OrElse Asc("9"c) < b
                Return If(ng, -ret, ret)
            Else
                ret = ret * 10 + b - Asc("0"c)
            End If
            b = read()
        End While
        Return ret
    End Function
    Public Function intArray(n As Integer) As Integer()
        Return enumerateInt(n)
    End Function
    Public Function longArray(n As Integer) As Long()
        Return enumerateLong(n)
    End Function
    Public Function charArray(n As Integer) As Char()
        Return enumerateChar(n)
    End Function
    Public Function Scan() As String
        Dim sb As New StringBuilder()
        Dim b As Char = nextChar()
        Do
            sb.Append(b)
            b = Convert.ToChar(read())
        Loop While Asc(b) >= 33 AndAlso Asc(b) <= 126
        Return sb.ToString()
    End Function
    Private Function read() As Byte
        If isEof
            Return 0
        End If
        If ptr >= len
            ptr = 0
            len = str.Read(buf, 0, 1024)
            If (len <= 0)
                isEof = True
                Return 0
            End If
        End If
        Dim bk As Integer = ptr
        ptr += 1
        Return buf(bk)
    End function
End Class
' FastScanner end

Measured memory_bytes: 26100