var a : integer; begin a := @a; end.