Vad är Ada-koden för en cusil-protes?

paketet cusil_denture är

typ material är (keramik, metall, plast);

typ tänder är (full, partiell);

typfärgen är (vit, benvit, gul);

typ clasp_type är (intern, extern, plast);

subtyp base_width range float :=0.0 .. 1.0; -- millimeter

typ cusil_denture är rekord

material :material;

tänder :tänder :=fulla;

färg :färg :=off_white;

clasp_type :clasp_type :=intern;

base_width :base_width :=1,0;

slutrekord;

slut cusil_protes;

```