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

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