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

program zz1;

var mas:array[1 ... 10] of integer;

i, p:integer;

begin

for i:=1 to 10 do / /вводим заданные десять чисел в массив с клавиатуры

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.