Billetes y monedas de cada denominación en lenguaje Pascal

Lenguaje

Pascal
Descripción

Solicitar una cantidad de dinero e indique cuantos billetes y monedas de cada denominación se necesitan para completar dicha cantidad.
Ejemplo: si se captura 2783, el programa debera mostrar:
2 billetes de $1,000
1 billetes de $500
1 billetes de $200
0 billetes de $100
1 billetes de $50
1 billetes de $20
1 monedas de $10
0 monedas de $5
1 monedas de $2
1 monedas de $1

1
2
3
4
5
6
7
8
9
10
11
12
13
14
15
16
17
18
19
20
21
22
23
24
25
26
27
28
29
30
31
32
33
34
35
36
37
38
39
40
41
42

program BilletesYMonedasDeCadaDenominacion;

uses crt;

var billetes_de_100, billetes_de_1000, billetes_de_20, billetes_de_200, billetes_de_50 : integer;

var billetes_de_500, cantidad_de_dinero, monedas_de_1, monedas_de_10, monedas_de_2 : integer;

var monedas_de_5 : integer;

begin

    write ('Ingresa el valor de cantidad de dinero: ');

    readln (cantidad_de_dinero);

    monedas_de_1 := cantidad_de_dinero;

    billetes_de_1000 := (monedas_de_1-monedas_de_1 mod 1000) div 1000;

    monedas_de_1 := monedas_de_1 mod 1000;

    billetes_de_500 := (monedas_de_1-monedas_de_1 mod 500) div 500;

    monedas_de_1 := monedas_de_1 mod 500;

    billetes_de_200 := (monedas_de_1-monedas_de_1 mod 200) div 200;

    monedas_de_1 := monedas_de_1 mod 200;

    billetes_de_100 := (monedas_de_1-monedas_de_1 mod 100) div 100;

    monedas_de_1 := monedas_de_1 mod 100;

    billetes_de_50 := (monedas_de_1-monedas_de_1 mod 50) div 50;

    monedas_de_1 := monedas_de_1 mod 50;

    billetes_de_20 := (monedas_de_1-monedas_de_1 mod 20) div 20;

    monedas_de_1 := monedas_de_1 mod 20;

    monedas_de_10 := (monedas_de_1-monedas_de_1 mod 10) div 10;

    monedas_de_1 := monedas_de_1 mod 10;

    monedas_de_5 := (monedas_de_1-monedas_de_1 mod 5) div 5;

    monedas_de_1 := monedas_de_1 mod 5;

    monedas_de_2 := (monedas_de_1-monedas_de_1 mod 2) div 2;

    monedas_de_1 := monedas_de_1 mod 2;

    writeln ('Valor de billetes de 100: ', billetes_de_100);

    writeln ('Valor de billetes de 1000: ', billetes_de_1000);

    writeln ('Valor de billetes de 20: ', billetes_de_20);

    writeln ('Valor de billetes de 200: ', billetes_de_200);

    writeln ('Valor de billetes de 50: ', billetes_de_50);

    writeln ('Valor de billetes de 500: ', billetes_de_500);

    writeln ('Valor de monedas de 1: ', monedas_de_1);

    writeln ('Valor de monedas de 10: ', monedas_de_10);

    writeln ('Valor de monedas de 2: ', monedas_de_2);

    writeln ('Valor de monedas de 5: ', monedas_de_5);

    writeln;

    write ('Presiona una tecla para terminar . . . ');

    readkey;

end.