var
a,b:integer;
x,y:^integer;
procedure fun(a:integer; var b:integer);
var
k: integer;
begin
k:=a; a:=b; b:=k;
end;
begin
a:=-3; b:=6;
x:=@a; y:=@b;
fun(x^,y^);
write('No.1:',a,',',b,' ')；
fun(a,b);
writeln('No.2:',a,',',b)；
end.
输出：No.1:-3,-3 No.2:-3,-3