VisualG esperava encontrar o fimalgoritmo

[Juan Priscilio]

Fiz esse programa no VisualG, mas quando executo ele diz: esperava encontrar fimalgoritmo. O que faço pra resolver esse bug já que claramente ele está ali? 
 

escreval("Diga o primeiro numero")
leia (n1)
escreval("Diga o segundo numero")
leia (n2)
escreval("Diga qual a operação: / x + -")
escolha op
caso:"/" r<- n1/n2 
caso:"x" r<- n1*n2
caso:"+" r<- n1+n2
caso:"-" r<- n1-n2
escreval("O resultado é" ,r)
 fimalgoritmo

 

[devair1010]

@Juan Priscilio@Juan Priscilio     seu código está bom e funcionando bem ,  mas você esqueceu de finalizar o comando escolha , e como o compilador não encontrou , mostrou a mensagem de que não encontrou o fimalgoritmo , mas dessa vezes ele errou o nome do comando ,  então vamos desculpá-lo  pois ele é bem simplizinho mesmo ,

Algoritmo "fimalgoritmo"
// Disciplina  :  [Linguagem e Lógica de Programação] 
// Professor   : Antonio Carlos Nicolodi 
// Descrição   : Aqui você descreve o que o programa faz! (função)
// Autor(a)    : Nome do(a) aluno(a)
// Data atual  : 21/02/2021
Var
n1,n2,r : real
op : caractere
Inicio
escreval("Diga o primeiro numero")
leia (n1)
escreval("Diga o segundo numero")
leia (n2)
escreval("Diga qual a operação: / x + -")
leia(op)
escolha op
  caso "/"
    r<- n1/n2
  caso "x"
    r<- n1*n2
  caso "+"
    r<- n1+n2
  caso "-"
    r<- n1-n2
fimescolha      //   aqui o danado do fimescolha
escreval("O resultado é" ,r)
Fimalgoritmo