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.
