Referencia Yahoo Portugol

programa
{
    inclua biblioteca Tipos --> t

    funcao inicio()
    {
        cadeia tmp
        escreva("Digite um valor: ")
        leia(tmp)

        // O '10' é necessário para trabalharmos com base decimal(10)
        se(t.cadeia_e_inteiro(tmp, 10))
        {
            inteiro num = t.cadeia_para_inteiro(tmp, 10) // a partir de agora trabalharemos com essa variável
            escreva("O valor digitado eh inteiro")
        }
        senao se(t.cadeia_e_real(tmp))
        {
            real num = t.cadeia_para_real(tmp) // a partir de agora trabalharemos com essa variável
            escreva("O valor digitado eh real")
        }
        senao
        {
            escreva("O valor digitado eh invalido!")
        }
    }
}