alexsandroams

algoritmo "exer 6"
var
n1,n2,n3,n4,media,erro:real
quatalunos,i:inteiro
nome:caracter

inicio

escreval (" o numero de alunos ")
leia (quatalunos)
      enquanto (i<=quatalunos) faca
      i<-i+1
          escreval (" o nome do aluno: ")
           leia (nome)
           escreval (" digite nota 1: ")
           leia (n1)
           escreval (" digite nota 2: ")
           leia (n2)
           escreval (" digite nota 3: ")
           leia (n3)
           escreval (" digite nota 4: ")
           leia (n4)
           media<-(n1+n2+n3+n4)/4
      se (media>=6) e  (media<=10) então
      escreval ("o aluno ",nome," teve media de  :",media," e está aprovado")
      senao
        se (media<6) e (media>=5)então
        escreval ("o aluno ",nome," teve media de  :",media," e está em recuperação")
        senao
        escreval ("o aluno ",nome," teve media de  :",media," e está reprovado")
          se (media > 10) então
          escreval (media," media inválida digite novamente")
   fimse
  fimse
 fimse
  fimenquanto
fimalgoritmo

se a media der acima de 10 ele tem que começar do zero

mas tentei varias formas e não consegui se tiver alguém pra dar uma luz agradeço.

att: Alexsandro