Algoritmo "08_02 Exemplo de Procedimento"
// Algoritmo que demonstra o uso de procedimento
// Exibe um cabeçalho padrão antes do início do programa
Var
        nomeUsuario: caractere

// Definição do procedimento mostra cabeçalho padrão
Procedimento mostraMensagem(mensagem: caractere)
Inicio
     escreval(" ")
     escreval("==================================")
     escreval("= ", mensagem)
     escreval("==================================")
     escreval(" ")
FimProcedimento

// Início do programa principal
Inicio
     mostraMensagem("Programa teste v1.0")    // Chamada do procedimento
     Escreva("Digite seu nome:")
     Leia(nomeUsuario)
     Escreval ("Olá, ",nomeUsuario,"! Seja bem vindo ao nosso sistema!")
     mostraMensagem("Fim do programa")      // Chamada do procedimento
FimAlgoritmo
