begin
  var n := 7;
  var a := ReadArrInteger(n);
  var j := -1;
  var min := integer.MaxValue;
  
  for var i := 1 to a.High - 1 do
  begin
    var MinLocal := Abs(a[:i].Sum - a[i + 1:].Sum);
    if min > MinLocal then
    begin
      min := MinLocal;
      j := i
    end
  end;
  j.Println;
end.