[Pascal] Program Pemecah Uang

Caranya sebagai berikut, contoh sobat memasukkan nominal uang 150600 maka outounnya berupa uang yang telah dipecah:
Rp 1000 ada 150
Rp 500 ada 1
Rp 100 ada 1

Program Pecahan_Uang;
Uses crt;

var uang,jumlah:longint;

begin
     writeln('Masukan nominal uang !!');

     writeln;

     write(' Rp. ');readln(uang);

     writeln;

     writeln ('Jumlah pecahan yang tersedia :');

     writeln;

     if uang>=1000 then

     begin

          jumlah:=uang div 1000;

          writeln(' Rp. 1000,- ada ',jumlah);

          uang:=uang mod 1000;

     end;

     if uang>=500 then

     begin

          jumlah:=uang div 500;

          writeln(' Rp.  500,- ada ',jumlah);

          uang:=uang mod 500;

     end;

     if uang>=100 then

     begin

          jumlah:=uang div 100;

          writeln(' Rp.  100,- ada ',jumlah);

          uang:=uang mod 100;

     end;

     if uang>=50 then

     begin

          jumlah:=uang div 50;

          writeln(' Rp.   50,- ada ',jumlah);

          uang:=uang mod 50;

     end;

     if uang>=25 then

     begin

          jumlah:=uang div 25;

          writeln(' Rp.   25,- ada ',jumlah);

          uang:=uang mod 25;

     end;

     writeln;

     readln;
end.

Jangan Lupa Komentar Yaa..