Дан целочисленный массив из 20 элементов. Элементы массива могут принимать целые значения от –10 000 до 10 000 включительно. Опишите на одном из языков программирования алгоритм, позволяющий найти и вывести количество пар элементов массива, в которых сумма элементов делится на 2, но не делится на 4. В данной задаче под парой подразумеваются два соседних элемента массива.
Мне надо ответ по Pascal ABC

Недостающий фрагмент:

k:=0;  

for i:=1 to N-1 do  

if ((a[i] + a[i+1])>0) and ((a[i] + a[i+1]) mod 2 = 1) then begin

k:=k+1;

end;

writeln(k);

Разбор:

k:=0; // переменная для подсчет количества пар элементов.

for i:=1 to N-1 do // запускаем цикл до N-1, чтобы в последнем цикле не было сбоев.

if ((a[i] + a[i+1])>0) and ((a[i] + a[i+1]) mod 2 = 1) then begin // находим нужную нам пару элементов с помощью условия. Как только находим:

k:=k+1; // увеличиваем переменную, то есть прибавляем уже к  имеющемуся количеству пар еще одну.

end; // Конец цикла

writeln(k); // выводим на экран количество пар