Solução em Pascal do Problema 8

program Notas;
var
  n,
  i,
  Aprovados,
  Reprovados: integer;
  Nota1,
  Nota2,
  Nota3,
  Media,
  MediaDaClasse: real;
begin
  write('Entre com o numero de alunos: ');
  read(n);
  Aprovados := 0;
  Reprovados := 0;
  MediaDaClasse := 0.0;
  for i:=1 to n do
    begin
      write('Digite as 3 notas do aluno ',i,': ');
      read(Nota1,Nota2,Nota3);
      Media := (Nota1+Nota2+Nota3)/3;
      writeln('A media do aluno ',i,' foi ',Media);
      MediaDaClasse := MediaDaClasse+Media;
      if Media>=5.0 then Aprovados := Aprovados+1
                    else Reprovados := Reprovados+1
    end;
  MediaDaClasse := MediaDaClasse/n;
  writeln('O numero de alunos aprovados foi ',Aprovados);
  writeln('O numero de alunos reprovados foi ',Reprovados);
  writeln('A media da classe foi ',MediaDaClasse)
end.