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

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