Составьте программку вычисления творенья тех значений частей одномерного массива,

program proizvedenie;

var

   n : integer;

   p : integer := 1;

   d : array of integer;

   k : boolean;

begin

   write('введите длину массива ');

   readln(n);

   d := new integer[n];

   d := arrRandom(n, 1, 64);

   writeln('сгенерирован массив: ', d);

   for var i := 0 to n-1 do if d[i] lt; 32 then begin

       p *= d[i];

       k := true;

   end;

   if k then writeln('творенье всех членов массива со значением наименьших 32 одинаково ', p)

   else writeln('массив не имеет значений меньше 32');

end.