PascalABC.NET 3.4.2, сборка 1978 (12.02.2019)

1. program task31143948;
2. const
3.  N = 12;
4. var
5.  arr: array[1..N] of real;
6.  Sum: real;
7. begin
8.  Sum := 1;
9.  for var i := 1 to N do
10.    begin
11.      arr[i] := Random()*4 - 1;
12.      Writeln(arr[i]:5:2);
13.      if arr[i] < 0 then
14.        Sum := Sum * arr[i]
15.    end;
16.  if Sum = 1 then
17.    Write('ПРОИЗВЕДЕНИЕ = 0')
18.  else
19.    Writeln('ПРОИЗВЕДЕНИЕ = ', Sum:5:2);
20. end.