newvar numero,suma,digito,exponente,respuesta,aux,bye;
screenput "Ingresa un numero decimal: ";
screenin numero;
suma = 0;
exponente = 1;
do while numero >= 1;
digito = numero % 2;
numero = int(numero / 2);
aux = digito * exponente;
suma = suma + aux;
exponente = exponente * 10;
loop
screen;
screenput "El numero binario es: ";
screenput suma;