Algoritmo com comando de repetição PARA ATE

[nexus.tecinfo]

Bom dia,

estou com um trabalho para fazer e não estou conseguindo concluir, é o seguinte:

Desenvolver um algoritmo com o comando de repetição PARA, e obter o seguinte:

A media das notas digitadas de três alunos e seus nomes

A media geral da sala

O número de alunos aprovados

O numero de Alunos em recuperação

O numero de Alunos reprovados

Obs: A nota de aprovação é superior a 7, entre 7 e 5 recuperação e abaixo esta reprovado.

Já fiz algumas coisas, mais não estou conseguindo concluir.

Espero que alguem possa ajudar, desde já agradeço.

Obg.

var
a,nota : inteiro
nome: caracter
media,n,quant,apro,repro,recu:real
inicio
// Seção de Comandos 
n <- 0
nota <-0
     para nota de 1 ate 3 faca
       escreva("Digite seu Nome: ")
       leia(nome)
       escreva("Digite Nota: ")
       leia(nota)
       escreval(" Aluno: " ,nome , " media: " ,nota)
       n<-n+ nota

    fimpara
       media<-n/3
     escreval("media Geral da Sala: ",media)


 SE (media>7)então

   escreva("Aprovado")
     apro<-media+1
   senao
     SE(media>=5) E (media<=7) então

    escreva( "Recuperação")
       recu<-media+1
senao
   SE(media<5) então

     escreva("Reprovado")
     repro<-media+1


     fimse
   fimse
     fimse

     escreval("A Quantidade de Alunos Aprovados foi:",apro)
     escreval("A Quantidade de Alunos em Recuperação foi:",recu)
     escreval("A Quantidade de Alunos Reprovados foi:",repro)


fimalgoritmo

[cristiang149]

o problema é no então, cv tem que esquever o então sem o ~, assim: então.

[nexus.tecinfo]

Consegui resolver a questão, o problema estava no final, coloquei o escreva para o final do comandos e deu certo, Obrigado.

Estarei deixando para quem quiser da uma olhada.

var
nota : inteiro
nome: caracter
media,n,ap,rec,rep:real
inicio
// Seção de Comandos

para nota de 1 ate 3 faca
   escreva("Digite seu Nome: ")
   leia(nome)
   escreva("Digite Nota: ")
   leia(nota)
   escreval(" Aluno: " ,nome , " media: " ,nota)
   n<-n+ nota

   media<-n/3

   se(nota>7) então
      ap<-ap + 1

   senao
      se(nota>=5) e (nota<=7) então
         rec<-rec + 1


      senao
         se(nota<5) então
            rep<-rep + 1


         fimse
      fimse
   fimse
     fimpara
escreval("Media Geral da Sala: ",media)
escreval("Quantidade de Alunos Aprovados:",ap)
escreval("Quantidade de Alunos em Recuperação:",rec)
escreval("Quantidade de Alunos Reprovados:",rep)

fimalgoritmo