Latihan Progam Pascal Pembagian Uang Pecahan

Assaamu'alaykum warohmatullohi wabarokatuh
Semester 3 saya mengambil matakuliah program komputer 1 yaitu Program Pascal. Suatu hari ketika kuliah mata kuliah ini saya mendapat soal tentang pembagian uang pecahan. Tanpa berlama-lama silahkan dipelajari dan boleh dicopas(gratis).
Semoga bermanfaat.

program perbaikan_nilai;
uses wincrt;
var a,ratus_ribu, limapuluh_ribu, puluh_ribu : longint;
lima_ribu, seribu,lima_ratus,duaratus, seratus :longint ;
begin
writeln('masukan uang');read(a);
writeln('============');
begin
ratus_ribu := a div 100000;
a := a mod 100000;
limapuluh_ribu := a div 50000;
a := a mod 50000;
puluh_ribu := a div 10000;
a := a mod 10000;
lima_ribu := a div 5000;
a := a mod 5000;
seribu := a div 1000;
a := a mod 1000;
lima_ratus := a div 500;
a := a mod 500;
duaratus := a div 200;
a := a mod 200;
seratus := a div 100;
a := a mod 100;

writeln('Jumlah pecahan uang 100.000 : ',ratus_ribu);
writeln('Jumlah pecahan uang 50.000 : ',limapuluh_ribu);
writeln('Jumlah pecahan uang 10.000 : ',puluh_ribu);
writeln('Jumlah pecahan uang 5.000 : ',lima_ribu);
writeln('Jumlah pecahan uang 1.000 : ',seribu);
writeln('Jumlah pecahan uang 500 : ',lima_ratus);
writeln('Jumlah pecahan uang 200 : ',duaratus);
writeln('Jumlah pecahan uang 100 : ',seratus);
writeln('------------------------------------------');

end;
readln;
end.