exercicio 17 aaaaaaaa

O processo de avaliação de uma determinada disciplina obedece aos seguintes critérios:
*durante o ano são dadas 4 notas;
*a nota final é obtida pela média aritmética das 3 maiores notas dadas durante o curso;
*é considerado aprovado o aluno que obtiver a nota final superior ou igual a 70 pontos e que tiver comparecido a um mínimo de 40 aulas
O algoritmo deve:
*cadastrar um conjunto de dados obtendo o número da matrícula, o nome do aluno, as 4 notas e a frequência(número de aulas frequentadas)
Calcular:
*a nota final de cada aluno;
*a maior e menor nota da turma;
*a nota média da turma;
*ao total de alunos reprovados;
*a percentagem de alunos reprovados por frequência
Listar os dados:
*gerar um relatório contento todos os dados dos alunos cadastrados
*o que foi calculado no item anterior
----------------------------------------------------------------------------------
algoritmo "ex 17"

var
aluno, curso, per:caracter
mat, freq: real
nota1, nota2, nota3, nota4: real
medtotal: real

inicio
Enquanto mat=0 ou mat=-1
Escreval("Nome do Aluno: ")
leia(aluno)
Escreval("Matricula do Aluno: ")
leia(mat)
Escreval("O Nome do Curso: ")
leia(curso)
Escreval("Informe o seu Periodo: ")
leia(per)
Escreval("Informe a frequencia: ")
leia(freq)
Escreval("Sua primeira Nota: ")
leia(nota1)
Escreval("Sua segunda Nota: ")
leia(nota2)
Escreval("Sua terceira nota: ")
leia(nota3)
Escreval("Sua quarta nota: ")
media_total<-((nota1*4)+(nota2*3)+(nota3*2)+(nota4*1)/4)
Escreval("Aluno: ",aluno)
Escreval("Matrícula: ",mat)
Escreval("Curso: ",curso)
Escreval("Período: ",per)
Escreval("Média Total: ",medtotal)

fimalgoritmo