WITH ada.integer_text_io;
WITH ada.text_io;

PROCEDURE testNumbers is

TYPE numbers IS ARRAY (1..8) OF integer;
myNumbers : numbers;
BEGIN
ada.text_io.put ("  Please enter 6 numbers and hit return ");
FOR i IN 1..6 LOOP
  ada.integer_text_io.get (myNumbers(i));
END LOOP;
FOR i IN 1..6 LOOP
  ada.integer_text_io.put(myNumbers(i));
  ada.text_io.new_line;
END LOOP;


NULL;
END testNumbers;