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;