С помощью датчика случайных чисел сделайте массив из 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.