Quel est le code Ada pour une prothèse cusil ?

```ada

le paquet cusil_denture est

type de matériau (céramique, métal, plastique) ;

le type de dents est (complet, partiel);

la couleur de type est (blanc, blanc cassé, jaune) ;

le type fermoir_type est (interne, externe, plastique) ;

sous-type base_width range float :=0.0 .. 1.0; -- millimètres

tapez cusil_denture est un enregistrement

matériel :matériel;

dents :dents :=pleines;

couleur :couleur :=off_white;

fermoir_type :fermoir_type :=interne;

base_width :base_width :=1.0;

terminer l'enregistrement ;

fin cusil_denture;

```