MODULE Beispiel2; IMPORT Read, Write, Conclusions; CONST length = 3; TYPE Matrix = ARRAY length,length OF INTEGER; VAR m: Matrix; i,j, counter: INTEGER; BEGIN (* Beispiel 2-dimensionales Array *) Write.Ln; counter := 0; i := 0; WHILE i < length DO j := 0; WHILE j < length DO Write.Int(i, 3); Write.Int(j,3); Write.Ln; m[i,j] = counter + 1; INC(j); INC(counter); END; INC(i); END; Write.Ln; Write.Ln; END Beispiel2.