[Resolvido] Portugol<- colocar % em uma pesquisa

pessoal tenho este código aqui ele roda direitinho até o

//MÉDIA DA IDADE DAS PESSOAS QUE RESPONDERAM
MediaId<-(somaId/(OpA+OpB+OpC+OpD+OpE))

segue:

var
Opiniao:caracter
Total,SomaId,OpA,OpB,OpC,OpD,OpE,Idade:inteiro
totala, totalb, totalc, totald, totale:inteiro
PercA, PercB, PercC, PercD, PercE, MediaId:real
inicio
// Seção de Comandos
escreval("Responda o questionário: ")
Idade<- 1
Enquanto (Idade > 0) faca
escreva("Digite a sua idade: ")
leia(Idade)
se(Idade > 0)entao
escreva("Digite a sua opnião: ")
leia(Opiniao)
se(opiniao = "A")entao
OpA<- totala +1
somaId<- somaId + Idade
senao
se(opiniao ="B")entao
OpB<- totalb +1
somaId<- somaId + Idade
senao
se(Opiniao = "C")entao
OpC<- totalc +1
somaId<- somaId + Idade
senao
se(Opiniao = "D")entao
OpD<- totald +1
somaId<- somaId + Idade
senao
se(Opiniao ="E")entao
OpE<- totale +1
somaId<- somaId + Idade
fimse
fimse
fimse
fimse
fimse
senao
escreval("Idade inexistente")
fimse
fimenquanto
// TOTAL DE PESSOAS QUE RESPONDERAM A PESQUISA
Total<-(OpA+OpB+OpC+OpD+OpE)
escreval("O total de pessoas que responderam a pesquisa: ", Total)
//MÉDIA DA IDADE DAS PESSOAS QUE RESPONDERAM
MediaId<-(somaId/(OpA+OpB+OpC+OpD+OpE))
escreval("A média da idade das pessoas que responderam a pesquisa é: ", MediaId)
PercA<- totala/(OpA+OpB+OpC+OpD+OpE)
escreval("A % de pessoas que responderam A: ", percA)
//PORCENTAGEM DE PESSOAS QUE RESPONDERAM "A"
PercB<- totalb/(OpA+OpB+OpC+OpD+OpE)
escreval("A % de pessoas que responderam B: ", percB)
//PORCENTAGEM DE PESSOAS QUE RESPONDERAM "B"
PercC<- totalc/(OpA+OpB+OpC+OpD+OpE)
escreval("A % de pessoas que responderam C: ", PercC)
//PORCENTAGEM DE PESSOAS QUE RESPONDERAM "C"
PercD<- totald/(OpA+OpB+OpC+OpD+OpE)
escreval("A % de pessoas que responderam D: ", PercD)
//PORCENTAGEM DE PESSOAS QUE RESPONDERAM "D"
PercE<- totale/(OpA+OpB+OpC+OpD+OpE)
escreva("A % de pessoas que responderam E: ", PercE)
//PORCENTAGEM DE PESSOAS QUE RESPONDERAM "E"
fimalgoritmo

O problema é que não sei como fazer para caso 3 pessoas respondam a letra C por exemplo, como dividir a % para as outras letras?

E caso uma ou mais letras a % seja de 0% como deixar 100% dividido só nas que forem respondidas?

exemplo:

A: teve 1 (20%)

B: teve 1 (20%)

C: teve 1 (20%)

D: teve 1 (20%)

E: teve 1 (20%)

Total: 100%

outro:

A: teve 2 pessoas (50%)

B: teve 0 (0%)

C: teve 0 (0%)

D: teve 0 (0%)

E: teve 2 pessoas (50%)

Total: 100%

Não preciso imprimir na tela o total de 100%, mas preciso printar quanto de % deu para cada uma... me matei a tarde toda e não consigo...

se puderem me dar uma luz agradeço