{$codepage utf8} Procedure CambiandoValores(P1:pointer;Var P2:pointer); Begin integer(P1^):=5; integer(P2^):=5; End; Procedure CambiandoPunteros(Var P1,P2:pointer); Var aux:pointer; Begin aux:=P1; P1:=P2; P2:=aux; End; Var A,B:pointer; Begin getmem(A,2); integer(A^):=2; getmem(B,2); integer(B^):=2; CambiandoValores(A,B); Writeln(integer(A^)); Writeln(integer(B^)); integer(A^):=3; integer(B^):=5; CambiandoPunteros(A,B); Writeln(integer(A^)); Writeln(integer(B^)) End.