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

а как заполнить массив?

Я же даже небольшой комментарий написал - READLN (A[i]); {Заполняем массив}. По сути, INC (count) это тоже самое, что count := count + 1; просто такая запись мне привычнее и немного короче, но смысла не меняет

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