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

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