Найти произведение нечетных элементов целочисленного одномерного массива с четными номерами - Pascal

Формулировка задачи:

Здравствуйте! Помогите, пожалуйста решить задачу: Найти произведение нечетных элементов целочисленного одномерного массива с четными номерами, состоящий из n элементов. Элементы вводятся с клавиатуры.

Решение задачи: «Найти произведение нечетных элементов целочисленного одномерного массива с четными номерами»

Листинг программы

const n=30;
var a:array [1..n] of integer;
Var i,p:integer;
Begin 
P:=1;
For i:=1 to n do Readln(a[i]);
For i:=1 to n do 
If (i mod 2 = 0) and (a[i] mod 2 <>0) then p:=p*a[i];
Writeln (p);
End.

Объяснение кода листинга программы

Объявляется константа n со значением 30.
Объявляется массив a размером n (от 1 до n) для хранения целых чисел.
Объявляются переменные i и p как целочисленные.
Запускается программа.
Инициализируется переменная p значением 1.
Вводятся значения в массив a через консольный ввод.
Поочередно проходятся все элементы массива от 1 до n.
Проверяется условие: текущий индекс четный (i mod 2 = 0) и значение массива по данному индексу нечетное (a[i] mod 2 <> 0).
Если условие выполняется, то переменная p умножается на значение массива по данному индексу.
Выводится значение переменной p.
Программа завершается.