Capt2 exercicio 13

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 "Capítulo 2 - Exercício 13"




var

a1, an, q, n:real

inicio
escreval("Calculo de uma Progressão Geométrica")
escreva("Informe o valor de A1: ")
leia(a1)
escreva("Informe o valor de Q: ")
leia(q)
escreva("Informe o valor de N: ")
leia(n)
an <- a1 * (q^(n-1))
escreval("Valor do termpo An: ", an)
fimalgoritmo