Какъв е кодът на Ada за зъбна протеза Cusil?

```ада

пакет cusil_denture е

тип материал е (керамика, метал, пластмаса);

тип зъби е (пълни, частични);

цветът на типа е (бял, мръснобял, жълт);

тип clasp_type е (вътрешен, външен, пластмасов);

подтип base_width диапазон float :=0.0 .. 1.0; -- милиметри

тип cusil_denture е запис

материал :материал;

зъби :зъби :=пълни;

цвят :цвят :=мръснобял;

тип_закопчалка :тип_закопчалка :=вътрешен;

базова_ширина :основна_ширина :=1,0;

край на записа;

край cusil_dentures;

```