program exPointers;

var

   number: integer;

   iptr: ^integer;

   y: ^word;

​

begin

   iptr := nil;

   y := addr(iptr);

​

   writeln('the vaule of iptr is ', y^);

end.

​