Estadísticas del código: Resto de una división - Pascal/Turbo Pascal

Código que permite saber el resto de dividir un número de hasta 250 (1*10^250) cifras por uno menor que 2*10^10.
Ejemplo: 1234787868564578989687568565765 al ser dividido por 4567 deja resto 1733.
Creado con Turbo Pascal 7.0