with ada.text_io;
with ada.integer_text_io;
procedure showAttributes is
type myArray is array (21..53) of integer;
number : integer;
myNumbers : myArray;
begin
for i in 21..25 loop
  myNumbers(i) := 59+i;
end loop;
ada.integer_text_io.put (integer'first);
ada.text_io.new_line;
ada.integer_text_io.put (integer'last);
ada.text_io.new_line;
number := 5;
-- number := number'succ; attributes can only be used 
-- with types
ada.integer_text_io.put (number);
ada.integer_text_io.put (myArray'first);
ada.integer_text_io.put (myArray'last);

end showAttributes;