type_converstion_apples.adb

This contains the following topics and more ADA versus C and Cplus plus Ada_training ADA 2005 for

WITH TEXT_IO;USE TEXT_IO;
with ada.integer_text_io; use ada.integer_text_io;
procedure TYPE_CONVERSTION_APPLES is
begin
type Apples is range 0 .. 100;
type French_Apples is range 0 .. 100;
Number : Apples;
Number_From_France :French_Apples;
begin
Number := 10;
   Number_From_France := French_Apples( Number );
end;