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

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