VisualG Pegar a soma dos 5 numeros

[Semnet]

Preciso pegar a somas dos 5 numeros 

algoritmo "AnalisadorDeValores"
var
   to:  Inteiro
inicio
      Para To <- 1 ate 5 faca
           Escreval("Escreval o ",to , "o. numero")
           Leia(To)
           FimPara

fimalgoritmo

 

[devair1010]

@Semnet     coloque uma variável para acumular os valores da soma e vai somando dentro do laço de repetição :

algoritmo "AnalisadorDeValores"
var
   soma,to:  Inteiro
inicio
  Para to <- 1 ate 5 faca
    escreva("Escreval o ",to,"º numero ")
    leia(to)
    soma := soma + to
  fimPara
  escreval("A soma é -> ",soma)
fimalgoritmo