Alg - Lista 2 - Escreva um algoritmo que calcule e escreva a soma Sn dos n primeiros termos de uma progressão aritmética

algoritmo "Progressao Aritmetica"


var
   n1,nf,r,n,s : real

inicio
 
   escreval("Entre com o primeiro termo ")
   leia(n1)
   escreval("Entre com o último termo ")
   leia(nf)
   escreval("Entre com a razão")
   leia(r)
   n<-((nf-n1)/r)+1
   s<-((n1+nf)/2)*n
   escreva("O total da soma é: ",s)


fimalgoritmo