{$codepage UTF8} VAR PNumero:pointer; BEGIN PNumero:=NIL; getmem(PNumero,2); integer(PNumero^):=1024; Writeln(integer(PNumero^)); freemem(PNumero); getmem(PNumero,4); longint(PNumero^):=2048; Writeln(longint(PNumero^)); freemem(PNumero); getmem(PNumero,8); int64(PNumero^):=4096; Writeln(int64(PNumero^)); freemem(PNumero) END.