(ответ пишет тот, кто знает.)

Дан массив, содержащий 40 целых чисел в диапазоне от -10000 до 10000. Напишите на одном из языков
программирования программу, которая находит в этом массиве количество пар соседних элементов массива, произведение которых нечётно, а сумма – положительна. В данной задаче под парой
подразумеваются два соседних элемента массива.
Исходные данные объявлены так, как показано ниже. Запрещается использовать
переменные, не описанные ниже, но разрешается не использовать некоторые
из описанных переменных.
В качестве ответа Вам необходимо привести фрагмент программы, который
должен находиться на месте многоточия.

var
a: array [0..39] of integer;
i, j, k: integer;
begin
for i := 0 to 39 do readln(a[i]);
...
end.