Program P137;
var i, j, k, m, n : ^integer;
                p : pointer;
begin
 { crearea variabilelor i^, j^, k^ }
 new(i); new(j); new(k);
 i^:=1; j^:=2; k^:=3;
 p:=j; { p reţine adresa din j }
 { distrugerea variabilei j^ şi crearea variabilei m^ }
 dispose(j); new(m); m^:=4;
 j:=p; { refacerea adresei din j }
 writeln('i^=', i^, '  j^=', j^, '  k^=', k^);
 { distrugerea variabilei m^ şi crearea variabilei n^ }
 dispose(m); new(n); n^:=5;
 writeln('i^=', i^, '  j^=', j^, '  k^=', k^);
 readln;
end.