信息学奥林匹克竞赛-相邻两数最大和

var
a:array[1..10] of longint=(5,-2,6,3,-1,18,-5,1,8,4);
max,pos,i:longint;
begin
max:=a[1]+a[2];
pos:=1;
for i:=1 to 9 do
begin
if a[i]+a[i+1]>max then
begin
max:=a[i]+a[i+1];
pos:=i;
end;
end;
writeln(max);
writeln(pos,' ',pos+1);
end.