Создайте массив из n
элементов (1 < n < 20) и найдите произведение всех его элементов.
Элементы массива вводятся генератором случайных чисел.

var  a: array of integer;  i, n: integer;  k: longint := 1;begin  readln(n);  a := new integer[n];  n -= 1;  for i := 0 to n do  begin    a[i] := random(10);    writeln('a[', i, '] => ', a[i]);  end;  writeln();  foreach i in a do    k *= i;  writeln(k);end.