Program P138;
var i, j, k, m : ^integer;
begin
 { crearea variabilelor i^, j^ }
 new(i); new(j);
 i^:=1; j^:=2;
 { eliberarea memoriei heap-ului }
 release(HeapOrg);
 { crearea variabilelor k^ ři m^ }
 new(k); new(m);
 k^:=1; m^:=2;
 writeln('k^=', k^, ' m^=', m^);
 i^:=3; j^:=4;
 writeln('k^=', k^, ' m^=', m^);
 readln;
end.