VisualG Problema em código VisualG

[Junior Bauer]

E aí galera, estou fazendo um curso de algoritmo e resolvi fazer um projeto simples pra por em prática só que ele da erro e eu nao consigo localizar o que há de errado, ficarei grato com dicas e possíveis soluções 


 

algoritmo "Calculo IMC"
// Função :     Testes
// Autor :     Julcemar Bauer
// Data : 10/01/2020
// Seção de Declarações 
var
  imc, altur, peso: real
  nome, sim: caractere

inicio
   Escreval  ("Ola. Qual seu nome?")
   Leia      (nome)
   Escreval  ("Bem vindo, ", nome, " iremos realizar o calculo de seu IMC")
   Escreval  ("para isso precisaremos de algumas informações, Ok?")
   Sim <- sim, ok, yes, ta bom, aham, s, ta
   Leia (sim)
     Se(sim = sim)entao
        Escreval ("Otimo!, ", nome, " Qual seu peso?")
        Escreval ("(digite apenas numeros)")
        Leia (peso)
        Escreval ("Quase lá,", nome, ". Qual sua altura, por gentileza?")
        Leia (altur)
        Escreval ("Aguarde um momento, estamos efetuando os calculos.........")
        imc <- (peso/(altur*2))
     SeNao
        Escreval ("Ok, tchau")
        fimse
     Se(imc>=40)entao
        Escreval ("Seu IMC é de: ", imc, "!! Cuidado, este valor indica")
        Escreval ("Obesidade Morbida Grau III e pode indicar risco a saude")
     Senao
        Se(imc>=35)e(imc<39)entao
           Escreval ("Seu IMC é de: ", imc, ". Indica obesidade Severa III")
        Senao
           Se(imc>=30)e(imc<35)
              Escreval ("Seu IMC é de: ", imc, ". Indica obesidade.")
           Senao
              Se(imc>=25)e(imc<30)
                 Escreval ("Seu IMC é de: ", imc, ". Indica sobrepeso.")
              Senao
                 Se(imc>=18.5)e(imc<25)
                    Escreval ("Seu IMC é de: ", imc, ". Indica que seu peso esta normal.")
                 Senao
                    Se(imc<18.5)
                       Escreval ("Seu IMC é de: ", imc, ". Indica que voce esta com sobrepeso.")
                    Senao
                     fimalgoritmo
                    fimse
                 fimse
              fimse
           fimse
        fimse
      fimse
      fimalgoritmo

 

[devair1010]

@Junior Bauer  nao testei seu codigo , mas creio que removendo aquele primeiro fimalgoritmo  ja vai resolver .

[Junior Bauer]

@devair1010 Não, ele deu erro mesmo assim

[Simon Viegas]

@Junior Bauer, vá fazendo o programa aos poucos.

 

Por exemplo: apenas leia um peso e informe o IMC. Coloque um código simples para funcionar.