program xoinc;
uses math;
var f:array[0..2000,0..2000]of longint;
    s:array[0..2000]of longint;
    t,k,m,n,i,j:longint;
begin
assign(input,'xoinc.in');
reset(input);
assign(output,'xoinc.out');
rewrite(output);
readln(n);
for t:=1 to n do
  begin
    readln(j);
    s[t]:=s[t-1]+j;
  end;
for i:=1 to n do
  for j:=1 to n-i+1 do
    for k:=1 to min(j*2,i) do
      if f[i,j]<s[n]-s[n-i]-f[i-k,k] then
          f[i,j]:=s[n]-s[n-i]-f[i-k,k];
j:=0;
for i:=1 to 2 do
  if f[n,i]>j then j:=f[n,i];
writeln(j);
close(output);
end.