CLASS Box PROCEDURE DELETE(x : INTEGER) ENDPROCEDURE ENDCLASS