¿Cuál es el código Ada para una dentadura cusil?

El paquete cusil_denture es

tipo de material es (cerámica, metal, plástico);

tipo de dientes es (completo, parcial);

el color del tipo es (blanco, blanquecino, amarillo);

el tipo de cierre es (interno, externo, plástico);

subtipo base_width rango flotante:=0.0 .. 1.0; -- milímetros

tipo cusil_denture es registro

materiales :materiales;

dientes :dientes :=lleno;

color :color :=blanquecino;

tipo_cierre:tipo_cierre:=interno;

ancho_base:ancho_base:=1.0;

registro final;

fin cusil_denture;

```