Jaký je Ada kód pro zubní protézu?

```ada

balíček cusil_denture is

typ materiálu je (keramika, kov, plast);

typ zubů je (plný, částečný);

typ barva je (bílá, špinavě bílá, žlutá);

typ clasp_type je (vnitřní, vnější, plastový);

podtyp base_width rozsah float :=0.0 .. 1.0; -- milimetry

typ cusil_denture je záznam

materiál :materiál;

zuby :zuby :=plné;

barva :barva :=off_white;

typ_spony :typ_spony :=interní;

základní_šířka:základní_šířka:=1,0;

konec záznamu;

end cusil_dentture;

```