program test_2012_4;
var x:integer;
procedure add(var z:integer);
begin
writeln(‘z=',z);z:=z+10;writeln('z=',z);
end;
begin
x:=5;writeln(‘x=',x);add(x);writeln(‘x=',x);
end.

输出：x=5
z=5
z=15
x=15