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

寻找相邻两个数，使得这两个数的和最大，输出这两个数的和以及这两个数所在位置

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.