Paula Argon

Queria fazer a porcentagens dos grupos, tipo, 7 alunos, q todos tiraram 4 como nota, eles estariam no grupo C, então essa turma seria 100% grupo C. E o resto 0%.. Queria q o programa calculasse essa porcentagem. Mas estou enrolada com isso. Estou inciando ainda. Var n: inteiro nota:real porcen:inteiro grupo:real Inicio Escreval(" Quantidades de alunos?" ) leia (n) Para nota de 1 ate n faca escreval( "Digite a nota") leia (nota) se (0.0 <=nota) e (nota<=2.5)então grupo<-nota escreval("Grupo D") senao se (nota>2.5) e (nota <= 5.0)então grupo<-nota escreval ("Grupo C") senao se (nota >5.0) e (nota <=7.5)então grupo<-nota escreval(" Grupo B") senao se (nota>7.5) e (nota<=10.0)então grupo<-nota escreval ("grupo A") senao fimse fimse fimse fimse fimpara Fimalgoritmo