Дан массив, содержащий...

Дан массив, содержащий 70 неотрицательных целых чисел, не превышающих 1000. Опишите на одном из языков программирования алгоритм, позволяющий найти ивывести наибольшую сумму двух соседних элементов массива, имеющих различную чётность. Гарантируется, что в массиве есть соседние элементы, имеющие различную чётность. Исходные данные объявлены так, как показано ниже. Запрещается использовать переменные, не описанные ниже, но разрешается не использовать часть из них.
const N=70;
var a: array [1..N] of integer;
i, j, x, y: integer;
begin
for i:=1 to N do
readln(a);
...
end.

 

Const n=70;
Var a:array[1..n] of integer;
i,j,x,y:integer;
Begin
 for i:=1 to n do
   readln(a);
 x:=0;
 for i:=1 to n-1 do
   if (a mod 2)<>(a[i+1] mod 2) then
     if (a+a[i+1])>x then x:=a+a[i+1];
 writeln('max=',x);
End.