Estrutura condicional encadeda

Boa noite, não estou conseguindo fazer com que a opção 2 e 3 funcionem corretamente, alguém poderia me ajudar? desde já agradeço pela atenção.


Var
n1, opcao : inteiro


Inicio
escreval ("Entre com um valor a ser testado: ")
leia (n1)
escreval (" Você pretende identificar se o numero e : ")
escreval (" opcao 1: par ou impar: ")
escreval (" opcao 2: positivo, negativo ou 0: ")
escreval (" opcao 3: Bissexto: ")
leia (opcao)

se (opcao = 1) entao
se (n1 mod 2 = 0) entao
escreval ("numero par")
senao
escreval ("numero impar")
fimse
se ( opcao = 2) entao
se ( n1 > 0) entao
escreval ( " numero positivo ")
senao se (n1 < 0) entao
escreval(" numero negativo ")
senao
escreval (" numero 0 ")
fimse
se (opcao = 3)
se (( n1 mod 4 = 0 e n1 mod 100 <> 0)
ou (n1 mod 400 = 0)) entao
escreval (" Ano Bissexto.")
senao
escreval (" Ano nao e Bissexto.")
fimse
senao
escreval ("Opcao inválida")
fimse

fimalgoritmo