How to write a maple program to calculate the product of polynomial factors missing some factors?

Question

How to write a maple program to find the following products

$\prod\limits_{j=1,j\neq 5}^{100} s-a_j$

$\prod\limits_{j=1,j\neq 6,11}^{100} s-a_j$

$\prod\limits_{j=1,j\neq 2,9,25,68}^{100} s-a_j$

etc.

Answer 1

mul(s-a[j], j in {$1..100} minus {2,9,25,68});