ueibson

algoritmo "semnome"
var
N,N1:Inteiro

inicio
      N <- 0
      N1 <- 0
      Escreva("Inicio: ")
      Leia(N)
      Escreva("Fim: ")
      Leia(N1)
      Se N < N1 então
         Enquanto N < N1 Faca
         N <- N + 1
         Escreva(N,"..")
         FimEnquanto
      SeNao
           Se N > 0 então
              Enquanto N > 0 Faca
              N <- N - 1
              Escreva(N,"..")
              FimEnquanto
              FimSe

         FimSe
fimalgoritmo

Você erro no segundo se