Código: Selecionar todos
program calculo_de_media_das_provas;
uses crt;
var aluno:string;
nota1,nota2,media:real;
begin
clrscr;
writeln('digite o nome do aluno');
readln(aluno);
writeln('digite nota1 ');
readln(nota1);
writeln('digite nota2 ');
readln(nota2);
media:=((nota1+nota2)/2);
writeln(media:0:0);
end.