2.12)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 xn /2,onde a1,é o primeiro termo da progressão,An,é o ultimo e n é o numero de termos,tal que:N=An-A1+1/r.Os valores de a1,An e R(a razão da progressão)serão fornecidas pelo usuário.

Algoritmo:"soma"
Var
A1,An,R,N,Sn:numerico
Inicio
Escreva("digite o primeiro termo")
leia(A1)
Escreva("digite o ultimo termo")
leia(An)
Escreva("digite a razão")
Leia(R)
N<-((An-A1)/R)+1
Escreva("o numero de termos é " :,N)
Sn<-((A1+An)/2)*N
Escreva("a soma dos termos é" : ,Sn)
fimalgoritmo