Составить программу вычисления произведения P=sin 1 • sin 2 • sin 3•...•sin n

Question

Составить программу вычисления произведения
P=sin 1 • sin 2 • sin 3•...•sin n

Answer 1

//PascalABC.NET
//Версия 3.3, сборка 1634
begin
write('P=',SeqGen(ReadInteger,x->sin(x),1).Aggregate(Real(1),(a,b)->a*b));
end.