RosettaCodeData/Task/Pointers-and-references/Ada/pointers-and-references-5.adb

Var : Integer;
Var_Address : Address := Var'Address;