Given an array of 10 integers, find the product of the array elements with even indices.

program zz1;
var mas: array [1..10] of integer;
i, p: integer;
begin
for i: = 1 to 10 do // enter the given ten numbers into the array from the keyboard
read (mas [i]);
p: = 1; // set the initial value of the product
for i: = 1 to 10 do
if i mod 2 = 0 then p: = p * mas [i]; // check if the index of the number in the array is divisible by 2, i.e. is even, then we multiply this number from the array by the product
write (p); // display the answer
end.