begin
var a := ReadArrInteger(ReadInteger('n='));
a := a[::2];
a.Println;
a.Aggregate(BigInteger(1), (p, q)-> p * q).Print
end.