Дан массив из 10 целых чисел отыскать творенье элементов массива с

program zz1;
var mas:array[1..10] of integer;
i,p:integer;
begin
for i:=1 to 10 do //вводим данные 10 чисел в массив с клавиатуры
read(mas[i]);
p:=1; // задаем изначальное значение творения
for i:=1 to 10 do
if i mod 2 = 0 then p:=p*mas[i]; //проверяем, если индекс числа в массиве делится на 2, т.е. четный, то это число из массива умножаем на творенье

write(p); //выводим ответ
end.