<em>// PascalABC.NET 3.3, сборка 1555 от 21.10.2017</em> <em>// Внимание! Если программа не работает, обновите версию!</em>
begin var (n1,n2):=ReadInteger2('Введите n1, n2:'); if n1>n2 then Swap(n1,n2); // защита от злобных буратинок Writeln(Range(n1,n2).Where(n->n.IsOdd).Aggregate(BigInteger(1),(m,n)->m*n)) end.