(1+sin 0,1) (1+sin 0,2)*...*(1+sin 10)

// PascalABC.NET 3.1, сборка 1219 от 16.04.2016 begin   Print(1.To(100).Aggregate(1.0,(p,x)->p*(1+sin(x/10)))) end. Результат: 1.72984094681772E-14