2-13) Escreva um algoritmo que calcule e escreva o valor de um termo an qualquer de uma progressão

algoritmo "Calcular Termo"




var

a1, q, n: inteiro

an: real

inicio

escreval (" ******Calcular Termo***** ")

escreva ("qual o valor de n -")

leia (n)

escreva ("qual o valor de a1 -")

leia (a1)

escreva ("qual o valor de q -")

leia (q)

an <- (a1*q)^n-1

escreva ("O valor do termo eh ", an:2:2)



fimalgoritmo