LISTA2_EX07 - 2014/02

//ALUNO: Luiz Henrique Forino
//PROGRAMAÇÃO I, PROFESSOR PX
//2014/02

Program EX07_LISTA02 ;

var n1, n2, n3, total :real;

Begin
     writeln ('Digite o valor da sua primeira nota: ');
     readln (n1);
     writeln ('Digite o valor da sua segunda nota: ');
     readln (n2);
     writeln ('Digite o valor da sua terceira nota: ');
     readln (n3);

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

     if total >= 7.0 then
      begin
        writeln ('MÉDIA: ', total, '. APROVADO!');
      end;
     if (total >= 5) and (total <= 6.9) then
      begin
        writeln ('MÉDIA: ', total, '. RECUPERAÇÃO.');
      end;
     if total <= 4.9 then
        writeln ('MÉDIA: ', total, '. REPROVADO.');
        readkey

End.