RosettaCodeData/Task/Array-length/Modula-3/array-length.mod3

MODULE ArrayLength EXPORTS Main;

IMPORT IO;

VAR
     Arr:ARRAY[1..2] OF TEXT :=
			     ARRAY[1..2] OF TEXT{"apples", "oranges"};
BEGIN
     IO.PutInt(NUMBER(Arr));
END ArrayLength.