Alg1 - 2ªlista. 12 - Escreva um algoritmo que calcule e escreva a soma Sn dos n primeiros termos de uma progressão aritmética.

algoritmo "Soma para progressão aritmética "
// Função :
// Autor :
// Data : 04/09/2010
// Seção de Declarações

var
x1,xn,s,n,razao : real

inicio
escreva ("Digite o primeiro termo da PA: ")
leia(x1)
escreva ("Digite o último termo da PA: ")
leia(xn)
escreva ("Digite a razão da PA: ")
leia(razao)
n <- ((xn-x1)/razao)+1
s <- ((x1+xn)/2)*n
escreva ("A soma dos primeiros termos é: ",s)

fimalgoritmo