Пример программы на языке Pascal:

Программа для вычисления произведения 6 элементов массива D:

program arrayProduct;
var
D: array[1..6] of Integer;
i, product: Integer;
begin
writeln('Введите 6 элементов массива D:');
for i := 1 to 6 do
readln(D[i]);
product := 1;
for i := 1 to 6 do
product := product * D[i];
writeln('Произведение элементов массива D: ', product);
end.

Программа для формирования массива B и вычисления суммы элементов промежутка 3:

program arraySum;
var
B: array[1..9] of Integer;
i, sum: Integer;
begin
Randomize;
for i := 1 to 9 do
B[i] := Random(6) + 5;
sum := 0;
for i := 1 to 9 do
begin
if (B[i] >= 3) and (B[i] <= 9) then
sum := sum + B[i];
end;
writeln('Массив B:');
for i := 1 to 9 do
write(B[i], ' ');
writeln;
writeln('Сумма элементов массива B в промежутке от 3 до 9: ', sum);
end.

Это две простые программы на языке Pascal для работы с массивами. Вы можете скомпилировать и запустить их в вашей среде разработки Pascal.