2 pc

var f1, f2: Text;
  n, i, x: Integer;
  mini: Integer = 20001;
  sum1: Integer = 0;
  sum2: Integer = 0;
  T: array of Integer;
  Bf: String = '';
  Lzh: String = '';
function max(sum1, sum2: Integer): Integer;
begin
  if sum1 > sum2 then max := sum1
                 else max := sum2;
end;
begin
  assign(f1, 'input.txt');
  assign(f2, 'output.txt');
  reset(f1);
  rewrite (f2);
  read(f1, n);
  SetLength(T, n);
  for i := 0 to n-1 do begin
    read(f1, T[i]);
    Bf := Bf + '0';
    Lzh := Lzh + '1';
  end;
  close(f1);
  While Bf <> Lzh do begin
    x := pos('0', Bf);
    Bf[x] := '1';
    if x > 1 then
      for i := 1 to x-1 do
        Bf[i] := '0';
    for i := 0 to n-1 do
      if Bf[i+1] = '0' then
        sum1 += T[i]
      else
        sum2 += T[i];
    if max(sum1, sum2) < mini then
      mini := max(sum1, sum2);
    sum1 := 0; sum2 := 0;
  end;
  write(f2, mini);
  close(f2);
end.