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

algoritmo "Soma de PA"
// Função :
// Autor :
// Data : 30/8/2010
// Seção de Declarações
var
   a1,an,r,n,s:real
inicio
// Seção de Comandos
   escreval("Entre com o primeiro termo da PA")
   leia(a1)
   escreval("Entre com o último termo da PA")
   leia(an)
   escreval("Entre com a razão")
   leia(r)
   n<-((an-a1)/r)+1
   s<-((a1+an)/2)*n
   escreva("O total da soma é: ",s)
 
fimalgoritmo