Case

programa
{
    funcao inicio()
    {

inteiro opc, num

        escreva("Entre com o valor a ser testado: ")
        leia(num)

        escreva("Você pretende identificar se o numero é: ")
        escreva("\n1 - Par ou impar:")
        escreva("\n2 - Positivo, negativo ou 0:")
        escreva("\n3 - Ano bissexto:\n")
        leia(opc)

        escolha(opc)
        {
            caso 1:

            se(num % 2 == 0){
                escreva("O numero é par!")
            }senao{
                escreva("O numero é impar!")
            }
            pare

            caso 2:
                se(num == 0){
                    escreva("Numero é igual a 0!")
                }senao se(num > 0){
                    escreva("Numero é maior que 0!")
                }senao{
                    escreva("Numero menor que 0!")
                }
            pare

            caso 3:
                se((num % 400 == 0) ou (num % 4 == 0 e num % 100 != 0)){
                    escreva("Ano bissexto!")
                }senao{
                    escreva("Ano não é bissexto!")
                }
            pare

            caso contrario:
                escreva("Opção inválida!")
        }
    }
}