Pascal/Turbo Pascal - tinen el codigo de un programa de un cajero autom

hola de casualidad tienen el codigo de un cajero,se trata de que te diga cuantos billetes de cada clase dar recibiendo info del usuario

Realiza un proceso que te de los factoriales de la cantidad que ha introducido el usuario. Para realizar esto solo tienes que utilizar un bucle
FOR que se repita hasta que el el numero obtenido sea menor que 1000.
Luego, dentro de ese mismo bucle, tienes que realizar otro proceso que
te guarde todos los numeros que terminen en 000. Si el cajero dispone
solo de billetes de 10000, 5000 y 2000, cambia los valores para ajustar el proceso. Todos los numeros que te extraiga los puedes guardar en un
vector que es mas facil de manejar que las matrizes. Luego solo tienes que crear el resto del programa que no deja de ser presentarlo en pantalla. Te daria el codigo pero es que estoy en clase y te lo estoy enviando de "stranjis". Si un dia puedo, te lo envio.