вычислить произведение четных чисел от 1 до 200

begin
  Writeln(Range(2,200,2).Aggregate(BigInteger(1),(p,q)->p*q))
end.


118305033024544857808171402556304773068330423943453950860219552506842483018552459750131300382609551649116952455583587373444882662176634718152559553931916976653860864000000000000000000000000