programa testefinal; {ERRO  - variavel nao declarada}

var opcao,x,y:inteiro;


procedimento numeros;
var x,y: inteiro;

procedimento dobro;
var media,total: inteiro;
inicio
  media:=(x+y)*2;
  escreva(media)
fim;

inicio
  leia(x);
  leia(y);
  total:= x+y;         
  escreva(total);   {ERRO  - variavel nao declarada} 
  dobro            {Calcula a media aritmetica dos numeros lidos}
fim;

procedimento p;               {calcula fatorial de um numero lido}
var z1: 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.