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; 
 
programa testefinal;          {ERRO - variavel duplicada} 
 
var opcao,x,y:inteiro; 
 
 
procedimento numeros; 
var x,y,total: inteiro; 
    x:inteiro;                          {ERRO - variavel duplicada} 
 
procedimento dobro; 
var media: inteiro; 
inicio 
  media:=(x+y)*2; 
  escreva(media) 
fim; 
inicio 
  leia(x); 
  leia(y); 
  total:= x+y; 
  escreva(total);  {soma dos numeros lidos} 
  dobro            {Calcula a media aritmetica dos numeros lidos} 
fim; 
 
procedimento p;               {calcula fatorial de um numero lido} 
var z: inteiro; 
    x:booleano;             
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.