Media De Um Aluno Em Pascal

(* Programa que leia as tres Notas de um Aluno e exiba a media *)

program media_notas;

var

nome : string [20]; //Declaração de variaveis

nota1, nota2, nota3 : integer;

calc_media : real;

begin

//entradas

write ('Digite o Nome do Aluno: ');

readln (nome);

write ('Digite a 1§ Nota: ');

readln (nota1);

write ('Digite a 2§ Nota: ');

readln (nota2);

write ('Digite a 3§ Nota: ');

readln (nota3);

calc_media := (nota1 + nota2 + nota3)/ 3; //processamento

writeln('O Nome do Aluno: ',nome);

writeln('A Media do Aluno: ', calc_media:2:0); //saida

writeln('___________________FIM___________________');

readln();

end.

(* Programa que leia as tres Notas de um Aluno e exiba a media *)

program media_notas;

var

nome : string [20]; //Declaração de variaveis

nota1, nota2, nota3 : integer;

calc_media : real;

begin

//entradas

write ('Digite o Nome do Aluno: ');

readln (nome);

write ('Digite a 1§ Nota: ');

readln (nota1);

write ('Digite a 2§ Nota: ');

readln (nota2);

write ('Digite a 3§ Nota: ');

readln (nota3);

calc_media := (nota1 + nota2 + nota3)/ 3; //processamento

writeln('O Nome do Aluno: ',nome);

writeln('A Media do Aluno: ', calc_media:2:0); //saida

writeln('___________________FIM___________________');

readln();

end.