Capt 2 exercicio12

Escreva um algoritmo que calcule e escreva a soma Sn dos n primeiros termos de uma progressão
aritmética dada pela formula:
sn = ((a1 + an) / 2) * n
Onde a1, é o primeiro termo da progressão, an, é o ultimo e n é o numero de termos, tal que:
n = ((an – a1) / r) + 1
Os valores de a1, an e r (a razão da progressão) serão fornecidas pelo usuário.

algoritmo "Calculando a soma da prograssão aritmetica"


var
a1, an, r, sn, n:real

inicio
escreval("Calculando Soma de Progressão Aritmética")
escreva("Informe o valor de a1: ")
leia(a1)
escreva("Informe o valor de an: ")
leia(an)
escreva("Informe o valor de r: ")
n(r)
n <- ((an - a1)/r) + 1
sn <- ((a1 + an)/2) * n
escreval("O valor da soma de N é: ", sn)
fimalgoritmo