Listing: 1 MODULE CBadLen; 2 VAR a : ARRAY [1 .. 5] OF INTEGER; b : ARRAY [1 .. 6] OF INTEGER; 3 BEGIN 4 a := b ***** ^ incompatible assignment 5 END CBadLen. 1 error