programa testefinal;  {* Calcula a media ou fatorial - OK *}
 
var opcao,x,y:inteiro; 
procedimento numeros; 
var x,y,total: inteiro; 
 
procedimento media; 
var edia: inteiro; 
inicio 
  edia:=(x+y)div 2; 
  se x>y entao escreva(x) senao escreva(y); 
  escreva(edia) 
fim; 
 
inicio 
  leia(x); 
  leia(y); 
  total:= x+y; 
  escreva(total);  {soma dos numeros lidos} 
  media            {Calcula a media aritmetica dos numeros lidos} 
fim; 
 
procedimento p;               {calcula fatouial de um numero lido} 
var z: inteiro; 
inicio 
  z:= x; x:=x-1; 
  se  z>1 entao p  {recursivo}  
  senao  y:=1; 
  y:=y*z                
fim { p }; 
 
inicio 
  leia(opcao); 
  se opcao = 1 
  entao numeros 
  senao inicio 
         leia(x); 
         p; 
         escreva(y) 
       fim 
fim.