Program Menghitung Pecahan Uang (Bahasa Pascal)

Buat program untuk mengubah Rp. 288.725,- menjadi pecahan dalam mata uang rupiah yg berlaku saat ini.

    contoh:

           Layar Masukan : 

                Sejumlah uang = Rp. 288575

           Layar Keluaran : 

                 2 lembar seratus ribuan

                 1 lembar lima puluh ribuan

                 1 lembar dua puluh ribuan

                 1 lembar sepuluh ribuan

                 1 lembar lima ribuan

                 1 lembar dua ribuan

                 0 keping seribuan

                 1 keping lima ratusan

                 0 keping seratusan

                 1 keping limapuluhan

                 Sisa Rp. 25,-

Program Pecahan_Uang;
{I.S. : diberikan sejumlah uang}
{F.S. : menampilkan pecahan uang dalam mata uang rupiah yang berlaku saat ini}

var
   uang,jumlah:longint;
begin
     uang:=288575;
     write('Rp. ',uang,',-');readln;
     write('Pecahan dalam Mata Uang Rupiah yang Berlaku Saat Ini');readln;
     useclrscr
     if uang>=100000 then
     begin
          jumlah:=uang div 100000;
          writeln(jumlah,' lembar seratus ribuan');
          uang:=uang mod 100000;
     end;
     begin
          jumlah:=uang div 50000;
          writeln(jumlah,' lembar lima puluh ribuan');
          uang:=uang mod 50000;
     end;
     begin
          jumlah:=uang div 20000;
          writeln(jumlah,' lembar dua puluh ribuan');
          uang:=uang mod 20000;
     end;
     begin
          jumlah:=uang div 10000;
          writeln(jumlah,' lembar sepuluh ribuan');
          uang:=uang mod 10000;
     end;
     begin
          jumlah:=uang div 5000;
          writeln(jumlah,' lembar lima ribuan');
          uang:=uang mod 5000;
     end;
     begin
          jumlah:=uang div 2000;
          writeln(jumlah,' lembar dua ribuan');
          uang:=uang mod 2000;
     end;
     begin
          jumlah:=uang div 1000;
          writeln(jumlah,' lembar atau keping seribuan');
          uang:=uang mod 1000;
     end;
     begin
          jumlah:=uang div 500;
          writeln(jumlah,' keping lima ratusan');
          uang:=uang mod 500;
     end;
     begin
          jumlah:=uang div 200;
          writeln(jumlah,' keping dua ratusan');
          uang:=uang mod 200;
     end;
     begin
          jumlah:=uang div 100;
          writeln(jumlah,' keping seratusan');
          uang:=uang mod 100;
     end;
     begin
          jumlah:=uang div 50;
          writeln(jumlah,' keping lima puluhan');
          uang:=uang mod 50;
     end;
     begin
          jumlah:=uang mod 50;
          writeln('Sisa Rp. ',jumlah,',-');
     end;
     writeln;
     readln;

end.