Exercício com comando "SE" encadeado

[carlos oliveira]

O exercício pede para que eu ao invés de utilizar o comando "CASO" utilize a estrutura condicional 'SE', eu fiz, mas está dando errado a terceira parte, gostaria de um ajuda, se possível explicasse aonde estou errando. Desde já agradeço pela atenção.

Var
   n1,opcao: inteiro

Inicio
      escreva("Entre com o valos a ser testado: ")
      leia (n1)
      escreval ("Digite 1: Para saber se o número é par ou ímpar.")
      escreval ("Digite 2: Para saber se o número é positivo, negativo ou zero.")
      escreval ("Digite 3: Para saber se o ano é bissexto.")
      escreva ("Informe a opcao desejada: ")
      leia (opcao)
      
      se (opcao = 1) entao
             se (n1 % 2 = 0) entao
                   escreva ("Numero par")
             senao
              escreva ("Numero impar")
              fimse

      senao

                se (opcao = 2)entao
                         se (n1 > 0) entao
                               escreva ("Numero positivo")
                senao
                           se (n1 < 0) entao
                                   escreva ("Numero Negativo")
                  senao
                       escreva ("Numero igual a zero")
              fimse
      senao  

                se (opcao = 3) entao
                           se (((n1 % 4 = 0) e (n1 % 100 <> 0))) ou (n1 % 400 = 0) entao
                                        escreva ("Ano bissexto")
               senao
                    escreva ("Ano nao é bissexto")
               fimse
      senao
           escreva ("Opcao Invalida")
      fimse

Fimalgoritmo

 

[carlos.machado]

Olá, notei que alguns "senao" não pussuem o "fimse", no caso do portugol, todo "se" ou "senao" precisa de um "fimse"

 

Var
   n1,opcao: inteiro

Inicio
      escreva("Entre com o valos a ser testado: ")
      leia (n1)
      escreval ("Digite 1: Para saber se o número é par ou ímpar.")
      escreval ("Digite 2: Para saber se o número é positivo, negativo ou zero.")
      escreval ("Digite 3: Para saber se o ano é bissexto.")
      escreva ("Informe a opcao desejada: ")
      leia (opcao)

      se (opcao = 1) entao
         se (n1 % 2 = 0) entao
            escreva ("Numero par")
         senao
            escreva ("Numero impar")
         fimse
      fimse

      se (opcao = 2)entao
         se (n1 > 0) entao
            escreva ("Numero positivo")
         senao
              se (n1 < 0) entao
                 escreva ("Numero Negativo")
              senao
                   escreva ("Numero igual a zero")
              fimse
         fimse
      fimse

      se (opcao = 3) entao
         se (((n1 % 4 = 0) e (n1 % 100 <> 0))) ou (n1 % 400 = 0) entao
             escreva ("Ano bissexto")
         senao
             escreva ("Ano nao é bissexto")
         fimse
      senao
         escreva ("Opcao Invalida")
      fimse

Fimalgoritmo