inicio
    inteiro numero , r
    escrever " introduza um numero: "
    ler numero
    r <- numero % 2
    se r = 0 entao
        escrever "numero par"
    senao
        escrever "numero impar"
    fimse
fim