SUMMIN PASCAL

var a:array[1..1000000] of longint;
    n,p:longint;
    
procedure nhap;
var i:longint;
begin
        readln(n);
        for i:=1 to n do read(a[i]);
end;

procedure solve;
var min,i:longint;
begin
    min:=1000000000;
    for i:=1 to n-1 do
        if abs (a[i]+a[i+1]) <= min then
        begin
           min:=abs(a[i] + a [i+1]);
           p:=i;
        end;
    writeln(min);
    write(p,' ',p+1);
end;

begin
    assign(input,'SUMMIN.inp');reset(input);
    assign(output,'SUMMIN.out');rewrite(output);
    nhap;
    solve;
end.