Question

Faça um algoritmo (Dev Pacal) que leia 4 notas, tire a média e diga se o aluno foi aprovado ou reprovado. Obs: Média deve ser 60

Answer 1

var
n1,n2,n3,n4,media : real;

Begin

writeln ('Informe a primeira nota: ');
readln (n1);
writeln ('Informe a segunda nota: ');
readln (n2);
writeln ('Informe a terceira nota: ');
readln(n3);
writeln ('Informe a quarta nota: ');
readln(n4);

media := (n1+n2+n3+n4)/4;

if (media >= 60) then
      writeln ('Aprovado')
else
      writeln ('Reprovado');

End.