Alg1 - 2ªlista. 13 - Escreva um algoritmo que calcule e escreva o valor de um termo an qualquer de uma progressão geométrica.

algoritmo "valor de um termo qualquer de uma progressão geométrica "
// Função :
// Autor :
// Data : 04/09/2010
// Seção de Declarações

var
x1,n,an,q : real

inicio
escreva ("Digite o primeiro termo da PA: ")
leia(x1)
escreva ("Digite o último termo da PA: ")
leia(n)
escreva ("Digite a razão da PA: ")
leia(q)
an <- x1*q^(n-1)
escreva ("Um termo qualquer da progressão geométrica: ",an)

fimalgoritmo