begin integer i, j, p select output(0) i = 1000 j = 1006 begin own byte integer array fred(i:j) = 1, 2(3), 3, 4 for p = i, 1, j cycle printstring("fred(") write(p, 0) printstring(") is ") write(fred(p), 0) newline repeat end end of program