program p1;
x:array[1..100] of integer;
var i,n,p:integer;
begin
write('Dati numarul de elemente ');readln(n);
for i:=1 to n do
write(x[i],' ');read(x[i]);
p:=0;
for i:=1 to n do
{testam daca gasim numere pare}
if x[i] mod 2=0 then
p=p*x[i];
write('Produsul numerelor pare este',p);
readln
end.
