In the array P (12), calculate the product of all even elements? (Pascal program)

Let’s create a variable proiz, give it the value 1. It is needed to write the value of the product to it.
Let’s go through all the elements of the array:
for i: integer: = 1 to 12 do
Inside the loop, we will need to determine which numbers are even:
if (P [i] mod 2 = 0) then
When such numbers occur, we will multiply proiz by P [i]:
proiz: = proiz * P [i];
When the loop is over, we show this proiz product:
writeln (‘The product of even numbers is’, proiz);
end.