Algoritmo para ler o nome, as três notas e o número de faltas de um aluno e escrever qual a sua situação final: Aprovado, Reprovado por Falta ou Reprovado por Média. A média para aprovação é 5,0 e o limite de faltas é 27. A reprovação por falta sobrepõe a reprovação por Média

//Faça um algoritmo para ler o nome, as três notas e o número de faltas de um aluno e escrever qual

//a sua situação final: Aprovado, Reprovado por Falta ou Reprovado por Média. A média para

//aprovação é 5,0 e o limite de faltas é 27. A reprovação por falta sobrepõe a reprovação por Média.1

program mediaAluno;

uses crt;

var

n1,n2,n3,media:real;

faltas:integer;

nome:string;

begin

writeln(' ------- Situacao do aluno ---------');

writeln('Informe os dados:');

writeln('NOME:');

readln(nome);

writeln('NOTA1:');

readln(n1);

writeln('NOTA2:');

readln(n2);

writeln('NOTA3:');

readln(n3);

writeln(' Frequencia (numero de faltas):');

readln(faltas);

media:=(n1 + n2 + n3)/3;

clrscr;//limpa tela

writeln('-------------- Resultado -------------');

writeln('Aluno: ', nome);

writeln('Media: ',media);

writeln('Faltas: ',faltas);

if ( media < 5.0) or (faltas >27) then

begin //reprovado

if (faltas < 27)then

begin

writeln('SITUACAO: Reprovado por media');

end else begin

writeln('SITUACAO: Reprovado por faltas');

end;

end else begin

//aprovado

writeln('SITUACAO: Aprovado');

end;

readkey;

end.