Para responder à questão considere o algoritmo “EstDados01” abaixo, escrito e executado no Visualg 3.0.7.0:

Algoritmo "EstDados01"
Var
    est_dad: vetor[1..5] de inteiro
    topo, dado, conta, tam: inteiro
    Funcao Inserir(elemento: inteiro) : Logico
    Inicio
        Se topo < 5 entao
            topo <- topo + 1
            est_dad[topo] <- elemento
            Retorne Verdadeiro
        Senao
            Retorne Falso
        FimSe
    FimFuncao
Inicio
    topo <- 0
    tam <- 5
    LimpaTela
    Para conta de 1 ate tam faca
        dado <- 100 - topo * 10
        Se Inserir(dado) = Verdadeiro entao
            Escreval("Pos[",topo,"] Elemento[", est_dad[topo], "]")
        Senao
            Escreval("Cheio")
        FimSe
    FimPara
Fimalgoritmo

Tela com a execução do algoritmo: