Мне дан массив d[j] от 1 до 7, и мне надо перемножить все числа этого массива, мне нужен только этот кусочек остальная программма готова...плиииз!!!!!!

Ну-ну...

...
p := 1;
for j := 1 to 7 do p := p * d[j];
...

Только не спрашивай, какого типа должны быть переменные... У тебя же все остальное есть? Значит и описания переменных должны быть...

Точно так же я тебя не спрашиваю, КАКОГО типа у тебя массив (может, это массив строк, откуда мне знать?)...