Дан массив вещественных чисел D[17]. Определить произведение отрицательных элементов массива, поменять местами пятый и 10 элементы, вывести измененный массив.
Паскаль.

1. program task31164690;
2. var
3.  D: array[1..17] of real;
4.  product: real;
5. begin
6.  product := 1;
7.  for var i := 1 to 17 do
8.    begin
9.      D[i] := Random(50.0) - 25.0;
10.      if D[i] < 0 then
11.        product := product * D[i]
12.    end;
13.  Swap(D[5], D[10]);
14.  Writeln(Format('ПРОИЗВЕДЕНИЕ ~ {0:0.0}', product));
15.  for var i := 1 to 17 do
16.    Writeln(Format('{0:0.000}', D[i]));
17. end.