var a:array [1..1000] of integer;
n,i,max:integer;
begin
write ('n='); readln (n);
writeln ('Ââåäèòå ÷èñëà');
for i:=1 to n do 
readln (a[i]);
max:=a[1]+a[2];
for i:=1 to n-1 do 
if (a[i]+a[i+1]>max) then max:=a[i]+a[i+1];
writeln ('Max=',max);
end.