4_4

algoritmo "4_4"
      declare n, i, s:inteiro;
      escreva("Informe o valor de n: ");
      leia(n);
      i <- 1;
      s <- 0;
      enquanto (i <= n) faca
               s <- s + i;
               i <- i + 1;
      fimenquanto
      escreval("A somatório de todos os números até n foi: ", s);
fimalgoritmo