RosettaCodeData/Task/Array-length/Modula-3/array-length.mod3
2023-07-01 13:44:08 -04:00

10 lines
184 B
Text

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.