Помогите решить задачу!!!
Вводится последовательность из N целых чисел найти произведение всех четных чисел больше 10

вроде бы так... подправь если что)uses crt; const N=10;var i,p:integer; a:array[1..N] of integer; {кол эл массива }beginp:=0; writeln('введите исходный массив');for i:=1 to N do {цикл по кол э} begin write('a[',i,']='); readln(a[i]); {ввод эл массива} if (a[i] mod 2)=0 then p:=p+1; end; write('p='); writeln(p); readlnend.