Очень нужно решить задачу! помогите!, задача по массивам Опции

[Алино4ка]

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

[IUnknown]

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

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