Сдатчика случайных чисел создайте массив из 8 вещественных чисел и найдите их произведение заранее)) в паскаль

Const
  N = 8;
var
  A: array [1..N] of real;
  prod: real;
  i: integer;
begin
  randomize;
  prod := 1;
  // Заполнение массива
  for i := 1 to N do begin
    A[i] := random*10 - 5;
    prod *= A[i];
  end;
  // Вывод произведения на экран
  write('Произведение: ', prod, '.');
end.