RosettaCodeData/Task/Address-of-a-variable/Delphi/address-of-a-variable-1.pas

var
   i: integer;
   p: ^integer;
begin
   p := @i;
   writeLn(p^);
end;