1module main; 2type 3 Color = (RED, BLUE, GREEN); 4var 5 a : array [1..10] of integer; 6 i : integer; 7 b : array Color of integer; 8 c : Color; 9 10procedure p (i : integer; var a : array of integer; j : integer); 11begin 12 a[3] := i; 13 a[4] := j; 14end p; 15 16begin 17 for i := 1 to 2 do 18 a[i] := i; 19 end; 20 p(4, a, 5); 21 b[BLUE] := 3; 22 c := RED; 23end main. 24