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.

var a:array[0..10000] of longint;
    i,n,vt,mi:longint;
begin
readln(n);
for i := 1 to n do read(a[i]);
mi:=10007;
for i := 1 to n-1 do
begin
 if (mi > abs(a[i]+a[i+1])) then mi :=abs(a[i]+a[i+1]);
 vt:=i;
end;
writeln(mi);
writeln(vt,#32,vt+1);
readln;readln;
end.