with Ada.Text_IO; use Ada.Text_IO; procedure Ada1 is begin Put_Line ("Long_Long_Integer---"); Put_Line (Long_Long_Integer'First'Img); Put_Line (Long_Long_Integer'Last'Img); Put_Line (Long_Long_Integer'Size'Img); Put_Line ("Long_Integer--------"); Put_Line (Long_Integer'First'Img); Put_Line (Long_Integer'Last'Img); Put_Line (Long_Integer'Size'Img); Put_Line ("Integer-------------"); Put_Line (Integer'First'Img); Put_Line (Integer'Last'Img); Put_Line (Integer'Size'Img); Put_Line ("Short_Integer-------"); Put_Line (Short_Integer'First'Img); Put_Line (Short_Integer'Last'Img); Put_Line (Short_Integer'Size'Img); Put_Line ("Short_Short_Integer-"); Put_Line (Short_Short_Integer'First'Img); Put_Line (Short_Short_Integer'Last'Img); Put_Line (Short_Short_Integer'Size'Img); Put_Line ("Natural-------------"); Put_Line (Natural'First'Img); Put_Line (Natural'Last'Img); Put_Line (Natural'Size'Img); Put_Line ("Positive------------"); Put_Line (Positive'First'Img); Put_Line (Positive'Last'Img); Put_Line (Positive'Size'Img); end Ada1;