Tìm 1 bị trí i sao cho abs(a[i] + a[i+1]) là nhỏ nhất
uses crt;
var i,n,p,min:longint;
a:array[0..10000] of longint;
begin
clrscr;
readln(n);
for i:=1 to n do read(a[i]);
min:=5000;
p:=0;
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);
writeln(p,' ',p+1);
readln;
end.