RosettaCodeData/Task/Address-of-a-variable/PascalABC.NET/address-of-a-variable.pas

begin
  var i: integer := 3;
  var p: ^integer := @i;
  p^ += 2;
  Print(p^,i);
end.