Дан одномерный массив целых чисел. посчитать кол-во пар четных чисел. пары считать подряд идущими элементами.

Конечно плохо то, что Вы не указали размерность массива, но в рамках решения задачи допустим, что размер массива = 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.