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