Fazendo uso da linguagem Pascal, desenvolva um programa com o nome Calcula_Media. O mesmo deverá realizar a leitura do nome

Program Calcula_Media;

var

Nome : string;

Disciplina : string;

Nota1,Nota2, Nota3, Media : Real;

Begin

Write (‘Informe o nome do aluno’);

Readln(Nome);

Write ('Entre com o nome da Disciplina: ’);

Readln(disciplina);

Write(‘Informe a primeira nota: ’);

Readln(Nota 1); 

Write(‘Informe a segunda nota: ’);

Readln(Nota 2);

Write(‘Informe a terceira nota: ’);

Readln(Nota 3);

Media:=(Nota1+Nota2+Nota3)/3; 

If Media >=7 Then

Begin

Write (‘O aluno, ‘Nome “observe a média: ‘,Media,        ‘       sendo aprovado’);

End

Eise

Begin

Write (‘O aluno, ‘Nome “observe a média: ‘,Media,        ‘       sendo reprovado’);

End;

Edn.

joao