program bai_giai;
uses crt;
var f,g:text;
A:array[1..1000000] of longint;
n,i,t,kt:longint;
begin
Assign(f,'SCB.INP'); reset(f);
Assign(g,'SCB.OUT'); rewrite(g);
readln(f,n);
t:=0;
for i:=1 to n do
begin
read(f,A[i]);
t:=t+A[i];
end;
kt:=0;
for i:=1 to n do
if A[i]*2=t then
begin
write(g,A[i]);
kt:=1;
end;
if kt=0 then write(g,-1);
close(f); close(g);
end.