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