programa testefinal; {ERRO procedimento duplicado} 
 
var opcao,x,y:inteiro; 
 
 
procedimento numeros; 
var x,y,total: inteiro; 
 
procedimento numero;         
var media: inteiro; 
inicio 
  media:=(x+y)div 2; 
  escreva(media) 
fim; 
 
inicio 
  leia(x); 
  leia(y); 
  total:= x+y; 
  escreva(total);  {soma dos numeros lidos} 
  numero            {Calcula a media aritmetica dos numeros lidos} 
fim; 
 
procedimento numeros;            {ERRO procedimento duplicado} 
    {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.