PascalABC.NET
begin
var D := ArrGen(6, i -> i / 5, 1);
Print(D.Product - D.Select(p -> p * p).Sum)
end.
Результат: -3.59392
