RosettaCodeData/Task/Create-an-object-at-a-given-address/PascalABC.NET/create-an-object-at-a-given-address.pas

begin
  var pi: ^integer;
  New(pi);
  pi^ := 3;
  Writeln(pi,' ',pi^);
  pi^ := 5;
  Writeln(pi,' ',pi^);
  var pi1: ^integer := pi;
  pi1^ := 666;
  Writeln(pi1,' ',pi1^);
  Writeln(pi,' ',pi^);
end.