anchor.diff:  
   procedure descompunere(x :longint);
   { Parametri:
  -    - x => numarul care va fi descompus in cifrele componente 
  +    - 'x' -> numarul care va fi descompus in cifrele componente 
    Obs.
       Procedura descompune numarul in cifrele sale componente
  -    apoi le numara in cev_cif
  +    apoi le numara in 'cev_cif'
       }   
   var c :byte;
   begin
  
positive.code:     readln(v[i]);
      end;
  
  { Initializam vec_cif cu 0 }
  for i := 0 to 9 do
      vec_cif[i] := 0 ;
  
  
negative.code:     if vec_cif[i] > max then
          max := vec_cif[i];
  
  { Afisam cele mai mari cifre care apar de 'max' ori }
  k := 0;
  
  for i := 9 downto 0 do
  