program ar;
var a:array[0..7] of integer;
a1, a2, n, i, sum:integer;
begin
read(n);
sum:=-1;
readln(a1);
for i:=2 to n do
begin
a[a1 mod 8]:=max(a[a1 mod 8],a1);
readln(a2);
if a2 mod 8<>0 then sum:=max(sum,a2+a[8-a2 mod 8])
else sum:=max(sum,a2+a[0]);
a1:=a2;
end;
writeln(sum);
end.