Escreva um algoritmo que leia as notas de vários alunos. Calcule e imprima a média da turma, bem como ...?

 Escreva um algoritmo que leia as notas de vários alunos. Calcule e imprima a média da turma, bem como a situação (mensagem) de cada um deles, conforme critério apresentado abaixo: 
“Aprovado”, caso a nota seja superior a 6,0; 
“Final”: se a nota estiver compreendida entre 4,0 e 6,0;
“Reprovado”: se a nota for inferior a 4,0.

algoritmo "semnome"
var
qtd,i:inteiro
nota,media,soma:real
inicio
escreval("Digite quantos alunos deseja calcular a média: ")
leia(qtd)
para i de 1 ate qtd faca
escreval("Digite nota: ")
leia(nota)
soma <- soma + nota
media <- soma/qtd
se nota > 6 entao
escreval("Aprovado")
escreval(" ")
fimse
se (nota >=4) e (nota<=6) entao
escreval("Final")
escreval(" ")
fimse
se nota<4 entao
escreval("Reprovado")
escreval(" ")
fimse
fimpara
escreval("A Média da turma é de :", media)
fimalgoritmo