Решите пожалуйста!!!Срочно!

Дана последовательность целых положительных чисел. Найти произведение четных чисел.

Это одна из строчек, которая должна быть в программе
for i:=1 to n do if a[i] mod 2=0 then p:=p*a[i];