m_arr.mod 157 B

123456789
  1. MODULE MArr;
  2. MODULE M EXPORT arr;
  3. VAR arr : ARRAY [1..3] OF INTEGER;
  4. END M;
  5. VAR ExitCode : INTEGER;
  6. BEGIN
  7. M.arr[2] := 42;
  8. ExitCode := M.arr[2]
  9. END MArr.