VisualG algoritmo não reconhece FimEscolha, encerra com: esperava encontrar FimAlgoritma

[chillys]

 

algoritmo não reconhece FimEscolha, encerra com: esperava encontrar FimAlgoritma

algoritmo "semnome"
var
   D:inteiro
   valor:real
inicio
      escreval("bem vindo ao cirança esperança, gostaria de fazer uma doação?")
      escreval("[1] para doar R$10")
      escreval("[2] para doar R$25")
      escreval("[3] para doar R$50")
      escreval("[4] para doar outro valor")
      escreval("[5] para cancelar doação")
      leia(D)
      Escolha D
              caso1
                   valor <- 10
              caso2
                   valor <- 25
              caso3
                   valor <- 50
              caso4
                   escreva("insira o valor da doação R$")
                   leia(valor)
              caso5
                   valor <- 0
      FimEscolha
      escreval("sua doação foi de R$",valor)
fimalgoritmo 

[kgin]

Tem que colocar um espaço entre a opção na estrutura escolha e o comando caso

 

50 minutos atrás, chillys disse:

Escolha D
              caso1
                   valor <- 10
              caso2
                   valor <- 25
              caso3
                   valor <- 50
              caso4
                   escreva("insira o valor da doação R$")
                   leia(valor)
              caso5
                   valor <- 0
      FimEscolha

 

Jeito certo

algoritmo "semnome"
var
   D:inteiro
   valor:real
inicio
      escreval("bem vindo ao cirança esperança, gostaria de fazer uma doação?")
      escreval("[1] para doar R$10")
      escreval("[2] para doar R$25")
      escreval("[3] para doar R$50")
      escreval("[4] para doar outro valor")
      escreval("[5] para cancelar doação")
      leia(D)
      Escolha D
              caso 1
                   valor <- 10
              caso 2
                   valor <- 25
              caso 3
                   valor <- 50
              caso 4
                   escreva("insira o valor da doação R$")
                   leia(valor)
              caso 5
                   valor <- 0
      FimEscolha
      escreval("sua doação foi de R$",valor)
fimalgoritmo