program p01; var a : ^integer; b : integer; begin b := 3; a := addr(b); WriteLn(a^); end.