Exercicio 12 capitulo 2

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 "Exercicio 2-12"
var
   a1,an,sn,r,n:real
inicio
   escreval("Informe o valor para 'a1':")
   leia(a1)
   
   escreval("Informe o valor para 'an':")
   leia(an)

   escreval("Informe o valor para 'r':")
   leia(r)
   
   n<- ((an - a1)/2)+1
   sn<- ((a1 + an)/2)*n
   
   escreva("O resultado é:",sn)
fimalgoritmo