Вычислить произведение элементов массива, которые находятся в заданном интервале - Pascal

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

Задан массив целых чисел a [i] и два целых числа с и d; вычислить произведение элементов массива a [i], которые находятся в интервале с <i<d. Не разбираюсь в массиве, нужна помощь. Писать в pascal

Решение задачи: «Вычислить произведение элементов массива, которые находятся в заданном интервале»

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

const i=30;
var a:array [1..i] of integer;
c,d,k,proizv:integer;
BEGIN
For k:=1 to i do
a[k]:=Random (100); //заполнили массив
Readln (c);//прочли данные
Readln (d);
proizv:=1;
For k:=1 to i do //прошлись по массиву
IF (a[k]<d) and (a[k]>c) THEN proizv:=proizv*a[k];
Writeln (proizv); //вывели произведение
END.

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

Объявляется константа с именем i со значением 30.
Объявляется массив a размером i элементов типа целое число.
Объявляются переменные c, d, k, proizv (похоже на результат) типа целое число.
Начинается основная часть программы (BEGIN).
Цикл For проходит по всем элементам массива a, заполняя их случайными числами от 0 до 100 с помощью функции Random.
Считываются значения переменных c и d с помощью функции Readln.
Инициализируется переменная proizv значением 1 (вероятно, для подсчета произведения).
Запускается цикл For, в котором проводится обход всех элементов массива a.
Внутри цикла проверяется, находится ли значение элемента массива a[k] в интервале между c и d, и если да, то его значение умножается на переменную proizv.
Значение переменной proizv выводится на экран с помощью функции Writeln.
Конец основной части программы (END).