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

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