Retiro de un cajero electrónico en lenguaje Pascal

Lenguaje

Pascal
Descripción

Permite realizar el retiro de dinero de un cajero electrónico, una vez indicado el monto en múltiplos de 10.000 el programa debe indicar cuál es la cantidad mínima de billetes que debe entregar el cajero. Ejemplo Cantidad $ 80.000 entrega:
1. 50.000
1. de 20.000
1. de 10.000
Sólo debe calcular con cantidad válida de billetes.

1
2
3
4
5
6
7
8
9
10
11
12
13
14
15
16
17
18
19

program RetiroDeUnCajeroElectronico;

uses crt;

var billetes_de_10000, billetes_de_20000, billetes_de_50000, retiro : integer;

begin

    write ('Ingresa el valor de retiro: ');

    readln (retiro);

    billetes_de_10000 := (retiro-retiro mod 10000) div 10000;

    billetes_de_50000 := (billetes_de_10000-billetes_de_10000 mod 5) div 5;

    billetes_de_10000 := billetes_de_10000 mod 5;

    billetes_de_20000 := (billetes_de_10000-billetes_de_10000 mod 2) div 2;

    billetes_de_10000 := billetes_de_10000 mod 2;

    writeln ('Valor de billetes de 10000: ', billetes_de_10000);

    writeln ('Valor de billetes de 20000: ', billetes_de_20000);

    writeln ('Valor de billetes de 50000: ', billetes_de_50000);

    writeln;

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

    readkey;

end.