Exercicio 13 capitulo 2

Escreva um algoritmo que calcule e escreva o valor de um termo an qualquer de uma progressão
geométrica dada por:
an = a1 * q^(n-1)
onde a1, é o primeiro termo da série, an, é o enésimo termo, q é a razão e n é o numero de termos.
Os valores de a1, q e n serão fornecidos pelo usuário.

algoritmo "Exercicio 2-13"
var
   an,a1,n,q:real
inicio
   escreval("Informe o valor para 'n':")
   leia(n)
   
   escreval("Informe o valor para 'a1':")
   leia(a1)
   
   escreval("Informe o valor para 'q':")
   leia(q)
   
   an<- a1*q^(n+1)
   
   escreva("O resultado é:",an)
fimalgoritmo