1(* 2 * Copyright (c) 1980, 1993 3 * The Regents of the University of California. All rights reserved. 4 * 5 * %sccs.include.redist.c% 6 * 7 * @(#)varparam.p 8.1 (Berkeley) 06/06/93 8 *) 9 10program varparam(input, output); 11var i : integer; 12 13procedure p(var i : integer); 14begin 15 i := 3; 16 writeln('end of p'); 17end; 18 19procedure q(var i : integer); 20var j : integer; 21begin 22 p(i); 23 writeln('end of q'); 24end; 25 26begin 27 q(i); 28 writeln('end of test, i = ', i:1); 29end. 30