1 2 3 4 5 6 7 8 9 10 11
{ %OPT=-Sew } {$T-} var i: integer; p: pointer; begin p := pointer(@i)+5; i := integer(p-p); end.