var a:array[0..10000007] of int64;
s,i,j,tam:longint;
k,n:int64;
begin
readln(k,n);
s := 0;
for i := 1 to n do read(a[i]);
for i := 1 to n - 1 do
for j := i + 1 to n do
if a[i] < a[j] then
begin tam := a[i];
a[i] := a[j];
a[j] := tam;
end;
for i := 1 to k do
s :=s+(a[i*2]*a[i*2-1]);
writeln(s);
readln;readln;
end.