1 2 3 4 5
CLASS Box PROCEDURE NEW(Number : INTEGER) ENDPROCEDURE ENDCLASS DECLARE Items : ARRAY[1:2] OF Box(1)