Дан массив, содержащий 70 неотрицательных целых чисел, не превосходящих 1000. Опишите на одном

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