1*44184Sbosticprogram varparam(input, output); 2*44184Sbosticvar i : integer; 3*44184Sbostic 4*44184Sbosticprocedure p(var i : integer); 5*44184Sbosticbegin 6*44184Sbostic i := 3; 7*44184Sbostic writeln('end of p'); 8*44184Sbosticend; 9*44184Sbostic 10*44184Sbosticprocedure q(var i : integer); 11*44184Sbosticvar j : integer; 12*44184Sbosticbegin 13*44184Sbostic p(i); 14*44184Sbostic writeln('end of q'); 15*44184Sbosticend; 16*44184Sbostic 17*44184Sbosticbegin 18*44184Sbostic q(i); 19*44184Sbostic writeln('end of test, i = ', i:1); 20*44184Sbosticend. 21