L2 - 13 - Escreva um algoritmo que calcule e escreva o valor de um termo an qualquer de uma progressão geométrica dada por:

Escreva um algoritmo que calcule e escreva o valor de um termo an qualquer de uma progressão geométrica dada por:

an = a1 x 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 "Calcula o valor de uma progressao geometrica"
 //Autor: Guilherme Paulino
 //Data: 02/09/2010
Var
  a1, an, q, n: numerico
Inicio
  Escreva("Informe o primeiro termo da serie: ")
  Leia(a1)
  Escreva("Informe a razao: ")
  Leia(q)
  Escreva("Informe o numero de termos: ")
  Leia(n)
  an <- a1 * q^(n-1)
  Escreva("O enésimo termo da progressao geometrica eh ", an)
Fimalgoritmo