Задано n целых чисел.найти произведение четных чисел.( использовать оператор цикла с параметром).

Var
m,n,i,a:integer;
begin
writeln('N=');
readln(n);
m:=1;
writeln('vvedite chisla');
for i:=1 to n do
begin
readln(a);
if (a mod 2)=0 then m:=m*a;
end;
if m=1 then m:=0;
writeln('otvet:',m)
end.