1program varparam(input, output);
2var i : integer;
3
4procedure p(var i : integer);
5begin
6 i := 3;
7 writeln('end of p');
8end;
9
10procedure q(var i : integer);
11var j : integer;
12begin
13 p(i);
14 writeln('end of q');
15end;
16
17begin
18 q(i);
19 writeln('end of test, i = ', i:1);
20end.
21