Program Menghitung Pecahan Uang

program pecahan_uang;
uses crt;
var
        uang,jumlah:longint;
begin
clrscr;
        writeln('Program Menghitung Pecahan Uang');
        writeln('===============================');
        write('Masukan Uang Kembalian: Rp. ');readln(uang);
        writeln;
        writeln('Pecahan Masing-Masing Uang: ');

begin
        jumlah:=uang div 10000;
        writeln(jumlah,' Lembar Rp.10000-an');
        uang:=uang mod 10000;
end;

begin
        jumlah:=uang div 1000;
        writeln(jumlah,' Lembar Rp.1000-an');
        uang:=uang mod 1000;
end;


begin
        jumlah:=uang div 500;
        writeln(jumlah,' Lembar Rp.500-an');
        uang:=uang mod 500;
end;

begin
        jumlah:=uang div 100;
        writeln(jumlah,' Lembar Rp.100-an');
        uang:=uang mod 100;
end;

begin
        jumlah:=uang div 50;
        writeln(jumlah,' Lembar Rp.50-an');
        uang:=uang mod 50;
end;

begin
        jumlah:=uang div 5;
        writeln(jumlah,' Lembar Rp.5-an');
        uang:=uang mod 5;
end;

begin
        jumlah:=uang div 1;
        writeln(jumlah,' Lembar Rp.1-an');
        uang:=uang mod 1;
end;
        readln;
end.