MODULE LoopMArrays;
IMPORT
	Out;
VAR
	x,y: ARRAY 3 OF CHAR;
	z: ARRAY 3 OF INTEGER;

PROCEDURE DoLoop;
VAR
	i: INTEGER;
BEGIN
	i := 0;
	WHILE i < LEN(x) DO
		Out.Char(x[i]);Out.Char(y[i]);Out.LongInt(z[i],0);Out.Ln;
		INC(i)
	END
END DoLoop;

BEGIN
	x[0] := 'a';y[0] := 'A';z[0] := 1;
	x[1] := 'b';y[1] := 'B';z[1] := 2;
	x[2] := 'c';y[2] := 'C';z[2] := 3;
	DoLoop
END LoopMArrays.