Даны две последовательности чисел а1, а2, …, аn и b1, b2, …, bn. Найдите количество пар аi, bi, (i = 1, n) таких, что оба числа в паре четные.

Идти по обоим массивам, и проверять очередные элементы обоих массивов на четность:

for i := 1 to n do
   if (a[ i ] mod 2 = 0) and (b[ i ] mod 2 = 0) then count := count + 1;

а count - это что?? я просто в этом деле совсем чайник(((((

Ну, тебе ж надо было найти
? Вот count и будет хранить это самое количество. Переменная это. Целочисленная. Перед началом цикла - не забудь обнулить...

спасибо)