funcao barra (real p, int total): string
    int i
    string s <- "|"
    cheio <- p * total / 100
    para i em (1, total):
        se (i < cheio):
            s <- concatena (s, "*")
        senao:
            s <- concatena (s, " ")
    retorne concatena (s, "|")

funcao grafico (real p, int total):
    int i
    string linha <- ""
    para i em (1..total+2):
        linha <- concatena (linha, "-")
    mostra linha
    mostra barra (p, total)
    mostra linha

int t   // Total
real p  // Percentual

leia t
leia p

grafico (p, t)