Составьте программу, которая формирует массив, содержащий 12 случайных вещественных чисел от -1 до 3, и подсчитывает произведение всех отрицательных чисел. вывод - в столбец с двумя десятичными знаками

PascalABC.NET 3.4.2, сборка 1978 (12.02.2019) program task31143948;const  N = 12;var  arr: array[1..N] of real;  Sum: real;begin  Sum := 1;  for var i := 1 to N do    begin      arr[i] := Random()*4 - 1;      Writeln(arr[i]:5:2);      if arr[i] < 0 then        Sum := Sum * arr[i]    end;  if Sum = 1 then    Write('ПРОИЗВЕДЕНИЕ = 0')  else    Writeln('ПРОИЗВЕДЕНИЕ = ', Sum:5:2);end.