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