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