Конечно плохо то, что Вы не указали размерность массива, но в рамках решения задачи допустим, что размер массива = 10. Тогда, программа примет следующий вид:
VAR A: ARRAY [1..10] OF INTEGER; i, count: BYTE;
BEGIN
count := 0;
FOR i := 1 TO 10 DO
READLN (A[i]); {Заполняем массив}
FOR i := 1 TO 9 DO
IF (A[i] MOD 2 = 0) AND (A[i+1] MOD 2 = 0) THEN INC (count);
WRITELN ('Количество четных пар = ', count);
END.
