begin
var a := ReadArrInteger(ReadInteger('n='));
a := a[::2];
a.Println;
a.Aggregate(BigInteger(1), (p, q)-> p * q).Print
end.
begin
var a := ReadArrInteger(ReadInteger('n='));
a := a[::2];
a.Println;
a.Aggregate(BigInteger(1), (p, q)-> p * q).Print
end.
Примерn= 103 15 -23 18 6 4 11 18 91 43 -23 6 11 91-414414