(L2) 13º Escreva um algoritmo que calcule e escreva o valor de um termo an qualquer de uma progressão geométrica dada por:

algoritmo "Calcula o valor do termo (an)"

var 

 a1, an, q, n: real

 inicio
  escreva ("Digite o valor de a1:")
  leia (a1)
  escreva ("Digite o valor de q:")
  leia (q)
  escreva ("Digite o valor de n:")
  leia (n)
  an<-(a1*q)^(n-1)
  escreva("O valor do último termo é", an:5:2)
fimalgoritmo