If step is wanted, it's easy enough: For n:=a to b Do Begin if n Mod step <> 0 then Continue; ...
p.s. make that if (n-a) Mod step <> 0 then Continue; for cases where a is not a multiple of step. Martin. _______________________________________________ fpc-pascal maillist - fpc-pascal@lists.freepascal.org https://lists.freepascal.org/cgi-bin/mailman/listinfo/fpc-pascal