Дан массив из 10 элементов. посчитать произведение этих элементов.

var

   d : array of integer := new integer[10];

   a : integer := 1;

begin

   d := arrRandom(10, 1, 10); // заполняем массив случайными числами от 1 до 10

   for var i := 0 to 9 do a := a*d[i]; // перемножаем

   writeln('дан массив: ', d);

   writeln('произведение всех его членов равно ', a);

end.