L6 - 8 - Fazer um programa para calcular a soma dos N primeiros números, onde N é lido.

Ex.: N=5. Soma = 1+2+3+4+5
Algoritmo "Calcula soma dos anteriores"

Var
    n, soma: inteiro
Inicio
    Escreva("N = ")
    Leia(n)
    soma <- 0
    Enquanto (n>0) FACA
        soma <- soma + n
        n <- n - 1
    Fimenquanto
    Escreva("A soma dos anteriores de N, e: ", soma)
Fimalgoritmo