здесь https://forum.hpc.name/thread/y641/79397/vychislenie-proizvedeniya-pervyh-n-celyh-polojitelnyh-chisel-s-ispolzovaniem-cikla-repeat-v-free-pascal.html
