PROGRAM MENGHITUNG LEMBARAN UANG

Program ini untuk menghitung jumlah lembaran uang kertas dalam pecahan 100 ribu, 50 ribu, 20 ribu, 10 ribu, 5 ribu, seribu dan lima ratus, dari sejumlah nilai uang yang kita inputkan.
dan juga menghitung sisa dari pecahan uang tersebut..
tampilannya programnya seperti yang terlihat pada gambar...





listing programnya sebagai berikut :

program uanga;
uses crt;
var uang : longint;
    sratusrb, limaplrb, duaplrb, spluhrb : longint;
    limarb, sribu, limarts, sisa : longint;

procedure input;
begin
 write('Masukkan Jumlah Uang = ');
 readln(uang);
end;
function hitung(uang : longint):longint;
begin
 sratusrb := uang div 100000;
 sisa := uang mod 100000;
 limaplrb := sisa div 50000;
 sisa := sisa mod 50000;
 duaplrb := sisa div 20000;
 sisa := sisa mod 20000;
 spluhrb := sisa div 10000;
 sisa := sisa mod 10000;
 limarb := sisa div 5000;
 sisa := sisa mod 5000;
 sribu := sisa div 1000;
 sisa := sisa mod 1000;
 limarts := sisa div 500;
 sisa := sisa mod 500;
end;
begin
clrscr;
 input;
 hitung(uang);
 writeln('pecahan 100 ribu  = ',sratusrb,' lembar');
 writeln('pecahan 50 ribu   = ',limaplrb,' lembar');
 writeln('pecahan 20 ribu   = ',duaplrb,' lembar');
 writeln('pecahan 10 ribu   = ',spluhrb,' lembar');
 writeln('pecahan limaribu  = ',limarb,' lembar');
 writeln('pecahan seribu    = ',sribu,' lembar');
 writeln('pecahan limaratus = ',limarts,' lembar');
 writeln('sisa = ',sisa);
 readln;
end.

Thanks