an = a1 * power(q, n – 1)

[Documentação][1].


  [1]: https://www.freepascal.org/docs-html/rtl/math/power.html