Estrutura composta

Media de alunos

Program exe3 ;
   Uses CRT;
     var
       nome:string;
       med,n1,n2, n3:real;
      

Begin
   writeln('Escreva seu nome');
   readln(nome);
   writeln('Informe a nota 1');
   readln(n1);
   writeln('Informe a nota 2');
   readln(n2);
   writeln('Informe a nota 3');
   readln(n3);
   med:=(n1+n2+n3)/3;
   if (med>=7) then
      begin
        writeln('Sua media foi:',med:0:1);
        writeln('Você foi Aprovado');
     end
     else if (med<=4) then
        begin
          writeln('Sua media foi:',med:0:1);
          writeln('Você foi Reprovado');
       end
       else if (med>=4.1) and (med<=6.9) then
          begin
            writeln('Sua media foi:',med:0:1);
            writeln('Você está de recuperação');
          end; 
        
         
end. 

Origem: FASEM