Algoritmo Repita-Ate

Esta é uma pré-visualização de arquivo. Entre para ver o arquivo original

ALGORITMO "SOMA_REPITA-ATE"
VAR
VALORDIGITADO: REAL
SOMA: REAL
INICIO
SOMA := 0
REPITA
ESCREVAL("DIGITE UM VALOR")
LEIA(VALORDIGITADO)
SOMA <- SOMA + VALORDIGITADO
ESCREVAL("VALOR DIGITADO: ", VALORDIGITADO)
ESCREVAL("--------------------------------------------------")
ATE VALORDIGITADO = 0
ESCREVAL("VALOR TOTAL: ", SOMA)
ESCREVAL("")
ESCREVAL("HAPPY TO HELP!")
FIMALGORITMO