program ejer_entre;
const
 corte=9999;
 min=1;
 max=100;
type
 rango=min..max;
 vector=array[rango]of integer;
 reg=record
  num:integer;
  cant:integer;
 end;
 arbol=^a;
 a=record
  hi:arbol;
  dato:reg;
  hd:arbol;
 end;
 
procedure CARGAR_VECTOR (var vec:vector;var diml:integer);
var
 n:integer;
begin
 writeln('ingrese un numero por favor:');
 readln(n);
 while(n<>corte)do begin
  vec[diml+1]:=n;
     diml:=diml+1;
  writeln('ingrese un numero por favor:');
  readln(n);
 end;
end;
 
procedure CARGAR_ARBOL(var A:arbol;n:integer);
begin
  if(A=nil)then begin
   new(A);
   A^.hi:=nil;
   A^.hd:=nil;
   A^.dato.num:=n;
   A^.dato.cant:=1
 end
 else
  if(A^.dato.num=n)then
    A^.dato.cant:=A^.dato.cant+1
  else  
   if(A^.dato.num<n)then
     CARGAR_ARBOL(A^.hd,n)
   else
     CARGAR_ARBOL(A^.hi,n);
end; 
  
procedure leer_v_cargar_a(v:vector;diml:integer;var A:arbol);
var
 i:integer;
begin
 for i:=min to diml do 
 CARGAR_ARBOL(A,v[i]);
end;
  
procedure MOSTRAR_ARBOL(A:arbol);
begin
 if(A<>nil)then begin
  MOSTRAR_ARBOL(A^.hi);
  writeln('numero:',A^.dato.num);
  MOSTRAR_ARBOL(A^.hd)
 end;
end;
 
var
 Arb:arbol;
 v:vector;
 diml:integer;
begin
 diml:=0;
 CARGAR_VECTOR(v,diml);
 Arb:=nil;
 leer_v_cargar_a(v,diml,Arb);
 MOSTRAR_ARBOL(Arb);
    readln;
    readln;
end.