anchor.diff:      readln(v[i]);
       end;
   
  -{ Initializam vec_cif cu 0 }
  +{ Initializam 'vec_cif' cu '0' }
   for i := 0 to 9 do
       vec_cif[i] := 0 ;
   
  
positive.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
  
negative.code: 
  procedure descompunere(x :longint);
  { Parametri:
      - 'x' -> numarul care va fi descompus in cifrele componente 
   Obs.
      Procedura descompune numarul in cifrele sale componente
      apoi le numara in 'cev_cif'
      }   
  var c :byte;
  begin
  