Вводится последовательность из 15 целых чисел. Найти произведение четных из них.
Var a:array[1..15] of integer; i,b: integer; begin b:=1; for i:=1 to 15 do readln(a[i]); for i:=1 to 15 do if a[i] mod 2 =0 then b:=b*a[i]; writeln(b); end.