pascal program Calcula_Media; var nome: string; nota1, nota2, nota3, media: real; begin writeln('Digite o nome do aluno:'); readln(nome);...

pascal

program Calcula_Media;

var

nome: string;

nota1, nota2, nota3, media: real;

begin

writeln('Digite o nome do aluno:');

readln(nome);

writeln('Digite a primeira nota:');

readln(nota1);

writeln('Digite a segunda nota:');

readln(nota2);

writeln('Digite a terceira nota:');

readln(nota3);

media := (nota1 + nota2 + nota3) / 3;

writeln('Aluno: ', nome);

writeln('Média: ', media:0:2);

if media >= 7 then

writeln('Aprovado!')

else

writeln('Reprovado!');

readln;

end.

```