Alg1- Capítulo 2- 13 Escreva um algoritmo que calcule e escreva o valor de um termo an qualquer de uma progressão geométrica

algoritmo "Descobre o último termo de uma PG"
// Função :
// Autor :
// Data : 30/8/2010
// Seção de Declarações
var
   a1,an,q,n:real
inicio
// Seção de Comandos
   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 PG é: ",an)

fimalgoritmo