(L2) 12º Escreva um algoritmo que calcule e escreva a soma Sn dos n primeiros termos de uma progressão aritmética dada pela formula:

algoritmo "Calcula a soma dos n "

var

a1, an, r, n, sn: real



inicio

escreva ("Digite o valor de a1:")

leia (a1)

escreva ("Digite o valor de an:")

leia (an)

escreva ("Digite o valor de r:")

leia (r)

n<-((an-a1)/r)+1

sn<-((a1+an)/2)*n

escreva("A soma será de", sn:5:2)



fimalgoritmo