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