Olá amigo, acho que você já deve ter resolvido seu problema, mas de qualquer modo está aqui um jeito simples de calcular porcentagens. Serve para dúvidas futuras
algoritmo "Porcentegem de alunos"
// Função :
// Autor :Daniel Santos
// Data : 25/05/2014
// Seção de Declarações
var
n1,n2:inteiro
total:real
inicio
escreval("Quantos homens possuem?")
leia(n1)
escreval("Quantas mulheres possuem?")
leia(n2)
total<-n1+n2//total de alunos para poder tirar a porcentagem
escreval("Alunos homens ", (n1*100/total),"%")//calculo de porcentagem
escreval("Alunas mulheres ",(n2*100/total),"%")//calculo de porcentagem
fimalgoritmo