13) Escreva um algorítmo que calcule e escreva o valor de um termo an qualquer de uma progressão geométrica,dada por : an = a1 * q^(n-1)

algoritmo "calculo de uma progressão geométrica"


var

  a1, an, q, n :real

inicio

  escreval ("calculo de uma progressão geometrica")

  escreva (" digite o valor a1")

  leia (a1)

  escreva ("digite o valor n")

  leia (n)

  escreva ("digite o valor q")

  leia (q)

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

  escreva ("valor do tempo an eh")


fimalgoritmo