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

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