Дан массив B размерности…

Progra gt; var b: array[1… 10000] of integer; n,i,p: linteger; beginread (n); p: =1; for i: =1 to n dobeginread (b[i]); if (b[i]>0) and (b[i] mod 2=0) then p: =p*b[i]; end; writeln (p); end.