TAD estadio
 interface
  type exportado entradas
   procedure Crear (var e:entradas);
   procedure VenderAsiento (var e:entradas; nom:string; dia,mes,año,hs,min,num:integer);
   function CantLibres (e:entradas):integer;
   function CantVendidas (e:entradas):integer;
   function QuedanEntradas (e:entradas):boolean;
   function ConsultarAsiento (e:entradas; num_asiento:integer):boolean;
   ...
 implementation
  tfecha = record
   dia:1..31;
   mes:1..12;
   año:2011..2100;
  end
  thora = record
   hs:0..23;
   min:0..59;
  end;
  entrada = record
   vendida:boolean;
   persona:string;
   hora:thora;
   fecha:tfecha;
  end;
  v_entradas=array[1..1000] of entrada;
  entradas = record
   vector:v_entradas;
   cant_libres:0..1000;
  end;