ПОМОГИТЕ РЕШИТЬ ЗАДАЧУ...

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

 

program kvcjkdsnfckls;
uses crt;
var a:array[1..10] of integer;
       i,c,d,p,j:integer;
begin
clrscr;
readln(c,d);
p:=1;
j:=1;
for i:=1 to 10 do
readln(a);
for i:=1 to 10 do
writeln(a);
for i:=1 to 10 do
if (a>=c) and (a<=d) then 
begin
p:=a*j;
j:=p;
end;
writeln('proizavedenie=',j);
readln
end.
Честно, с таблицей не понял, но вроде все нормально. 
Программа просит ввести c и d 
Затем значения массива
Затем, по-видимому, выводится таблица
Затем высчитывается произведение подходящих элементов, и оно выводится