Proceso decimal_octal
//convertir decimal a octal en pseint
    escribir "Escriba un numero Entero para pasarlo a Octal"
    leer num
    x=num
    Si x>7 Entonces
        repetir
            acum=convertiratexto(redon((x/

8-trunc(x/8))*8))+acum
            Si x>=8 Entonces
                x=trunc(x/8)
            Fin Si
        hasta que x<=8
    FinSi
    acum=convertiratexto(x)+acum
    escribir num," Decimal = ",acum," en Octal"
FinProceso


Link : Para descargar pseint;
 http://sourceforge.net/projects/pseint/files/20150505/pseint-w32-20150505.exe/download?use_mirror=tcpdiag&download=