Program Calcula_Media;

{ Definicao da Funcao }
Function Media (Nota1, Nota2 : Real) : Real ;
Begin
  Media := (Nota1 + Nota2) / 2;
End;

{Variaveis do Programa Principal }
Var
  N1, N2 : Real;
  Media_Final : Real;

{ Programa Principal }
Begin
  Writeln ('Entre com 2 notas: ');
  Readln(N1, N2);
  Media_Final := Media (N1, N2);                        { Chamada da Funcao }
  Writeln ('A m‚dia final ‚ ', Media_Final:2:2);
  Writeln ('A m‚dia entre 5 e 8 ‚ ',Media(5,8));
  Readln;
End.