Alg - Lista 2 - Escreva um algoritmo que calcule e escreva o valor de um termo an qualquer de uma progressão geométrica

an = a1 x q 

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 "Ultimo Termo"


var
     a1,an,q,n:  real


inicio

   escreval("Entre com o primeiro termo da PG")
   leia(a1)
   escreval("Entre com o número de termos da PG")
   leia(n)
   escreval("Entre com a razão")
   leia(q)
   an<-a1*((q)^(n-1))
   escreva("O último termo dessa Progressão Geométrica é: ",an)


fimalgoritmo