VisualG O Visualg diz que precisa de um então mesmo tendo um então

[pedrohenriquegonçalvez]

algoritmo "semnome"
var
   Nome:caractere
   nb1m:real
   nb2m:real
   nb3m:real
   nb4m:real
   ntm:real
   np1:real
   np2:real
   np3:real
   np4:real
   ntp:real
   nc1:real
   nc2:real
   nc3:real
   nc4:real
   noas:inteiro
   rpn:inteiro
inicio
   EscrevaL ("--------------------------------------------")
   EscrevaL ("escola n sei o que")
   EscrevaL ("--------------------------------------------")
   Escreva ("Qual é o nome do aluno?: ")
   Leia (Nome)
   Escreva ("Nota de matematica primeiro bimestre: ")
   leia (nb1m)
   Escreva ("Nota de matematica segundo bimestre: ")
   leia (nb2m)
   Escreva ("Nota de matematica terceiro bimestre: ")
   leia (nb3m)
   Escreva ("Nota de matematica quarto bimestre: ")
   Leia (nb4m)
   ntm <- nb1m + nb2m + nb3m + nb4m
   se (ntm >= 60) então
      Escreval (Nome , " passou em matematica.")
      senao
      Escreval (Nome ,  " não passou em matematica, está de NOA ")
       fimse
      Escreva ("Nota de portugues primeiro bimestre: ")
      leia (np1)
      Escreva ("Nota de portugues segundo bimestre : " )
      leia (np2)
      Escreva ("Nota de portugues terceiro bimestre : " )
      leia (np3)
      Escreva ("Nota de portugues quarto bimestre : ")
      leia (np4)
      ntp <- (np1 + np2 + np3 + np3)
      se (ntp >=60) então
         Escreva (Nome , " passou em portugues.")
      senao
         Escreval (Nome , " não passou em portugues, está de NOA")
         Escreva ("Nota de ciencias primeiro bimestre : ")
         leia (nc1)
         Escreva ("Nota de ciencias segundo bimestre : ")
         leia (nc2)
         Escreva ("Nota de ciencias terceiro bimestre : ")
         leia (nc3)
         Escreva ("Nota de ciencias quarto bimestre : ")
         leia (nc4)
         ntp <- (nc1 + nc2 + nc3 + nc3)
           se (ntc >=60) então
            escreva (Nome , " passou em ciencias.") então
         senao
            Escreval (Nome , " não passou em ciencias, está de NOA")
         fimse
      fimse
   fimse
fimalgoritmo

 

Ele diz que na linha 62=  se (ntc >=60) então, está faltando um então mesmo tendo

E também na linha 63= escreva (Nome , " passou em ciências.") 

o que não faz sentido, né?

 

      Aqui da pra ver que tem um então na linha mas ele diz que não, já tentei tirar o acento sim

 

 

       Aqui a mesmca coisa

[Midori]

@pedrohenriquegonçalvez O erro é na linha anterior. O correto é então (sem til). Remova esse da linha 63.

[devair1010]

@pedrohenriquegonçalvez   e também  a variável "ntc"  seria "ntp",