По информатике помогите пожалуйста.

Question

ПОМОГИТЕ РЕШИТЬ ЗАДАЧУ ПОЖАЛУЙСТА. я пропустила тему. ПО ПАСКАЛЬ.! ! 
 Дан одномерный массив А состоящий из 10 элементов. Вывести на экран исходную таблицу и резултат программы. 
Найти произведения элементов массива А. удовлетворяющих условию: 
c<=A<=d.

Ольга Зайцева · Accepted Answer

p:=1; 
for i:=1 to 10 do 
if ( a [ i ] >=c) end (a [ i ] <=d) then p:=p*a [ i ];