MODULE TestArray;

TYPE
massiv1 = ARRAY 10, 10 OF INTEGER;
massiv2 = ARRAY 20, 20 OF INTEGER;


PROCEDURE test (IN a: massiv1; OUT b: massiv2);
BEGIN
END test;

PROCEDURE do*;
VAR a: massiv1; b: massiv2;
BEGIN
test (a, b);
END do;


END TestArray.