2.13) 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 serie,An é o enésimo termo,q é a razão e n é o muero de termos.Os valores de a1,q e n serão fornecidos pelo usuário.

Algoritmo:"calcule"
Var
An,A1,q,n
Inicio
Escreva("digite o primeiro termo")
leia(A1)
escreva("digite o numero de termo")
leia(n)
Escreva("digite a razão")
leia(q)
An<-a1*q^(n-1)
Escreva("an é igual a ": ,An)
fimalgoritmo