12) Escreva um algorítmo 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 ,talque: 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 " calcular a soma da progressão Aritmética"

var

  a1, an, sn, r, n : real

inicio

  escreval (" calcular a soma da progressão Aritmética")

  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 (" o valor da soma eh")



fimalgoritmo