WITH ada.integer_text_io;
WITH ada.text_io;
PROCEDURE contest IS

TYPE programmer IS ARRAY (1..10) OF integer;
aProgrammer : programmer;
   number : integer;
   lines_of_code, max, sum,last: integer;
   done: boolean;
BEGIN
 aProgrammer := (OTHERS => 0);  -- initializes entire array to 0
 FOR i IN 1..10 LOOP
    ada.integer_text_io.put (aProgrammer(i)); -- debugging statement to see that initialization occurred
 END LOOP; 
 ada.text_io.new_line;


 --  I didn't show you the rest of the program

end contest;