algoritmo "NumeroParOuImpar"
var
    numero : inteiro
inicio
    escreva("Digite o valor do numero: ")
    leia(numero)
    se numero%2 = 0 entao
        escreval("O número é par")
    senao
        escreval("O número é ímpar")
    fimse
fimalgoritmo