Algoritmo para converter bases numéricas

Olá gente,

Sou aluno do primeiro ciclo de ADS, e estou aprendendo o básico ainda. Estou com dificuldade no seguinte exercício:

"Receba um número no sistema decimal e converta para binário. Exiba o binário"

A idéia principal pegar o número e dividí-lo por 2 e ir somando os restos, correto? Mas não sei como continuar dividindo o número digitado pelo usuário para converter para binário

O que eu já fiz:

var

numero, resto : inteiro

inicio

escreval ("digite um número ")
leia (numero)
numero mod 2 // inicio da conversão
resto := numero mod 2 // resto da primeira divisão

se resto<=2 entao // continuar a divisão
???????
?????????

fimalgoritmo

Tenho aqui uma solucão..

algoritmo "Conversão de Bases"
// Função :Converter Bases Numéricas
// Autor : virgilio Cossa
// Data : 9/5/2014
// Seção de Declarações
var
numero, resto : inteiro
X:caracter
inicio
Escreva("Digite o nº Decimal")
leia(numero)
enquanto numero>0  faca
  resto<-(numero) mod 2
  x<-numpcarac(resto)+x     // Converte o resto para caracter e concatena em frente ao "X"
  numero<-(numero) div 2
fimenquanto

  escreval("A conversão resultou em ",X, "Binário")

FimAlgoritimo



Espero ter ajudado...