LP - Comando de Decisão - Pascal

Média MB / B / R / I


Program P_Decisao;
var  n1,n2,media:real;
 Begin
      write('Digite a primeira nota...: ');
      read(n1);
      write('Digite a segunda nota....: ');
      read(n2);
media:=(n1+n2)/2;
writeln('A média é ',media:2:2);
       
if (media <= 4) then
write('Média I');

if (media > 4) and (media <= 6) then
write('Média R');

if (media > 6) and (media <= 9.5) then
write('Média B');

if (media > 9.5) then
write('Média MB');
 End.