Exercício 2-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 " Progressão Geométrica "
var

a1, an, q, n:real

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

fimalgoritmo