funcao soma (vetor(real) v): real
    s <- 0
    para i em (0..tamanho(v)):
        s <- s + v[i]
    retorne s

funcao percentuais (vetor(real) v): vetor(real)
    p <- zeros(len(v))
    s <- soma(v)
    para i em (0..tamanho(v)):
        p[i] <- 100*v[i]/s
    retorne p

leia n
vetor v(real, n)

para i em (0..n):
    leia v[i]

p <- percentuais (v)

para i em (0..n):
    mostre p[i]