Come faccio a creare un programma Pascal che dato il numero in base 10 ricava il binario?

Grazie