{$codepage UTF8} VAR p:longint; BEGIN p:=1258469723; Writeln('El numero :',p); Writeln('En Binario es :',BinStr(p,32)); Writeln('En Octal es :',OctStr(p,16)); Writeln('En Hexadecimal es :',HexStr(p,8)); END.