Program Menghitung_jml_pecahan;
uses wincrt;
... var
jml_uang : longint;
a,b,c,d,e,f,g,h,i,j,k:longint;
a1,b1,c1,d1,e1,f1,g1,h1,i1,j1,k1:longint;
begin
clrscr;
writeln('PROGRAM MENGHITUNG JUMLAH PECAHAN');
writeln;
write('Tulis Jumlah uang : ');readln(jml_uang);
writeln('------------------------------------------');

a := jml_uang div 100000;
a1 := jml_uang mod 100000;
b := a1 div 50000;
b1 := a1 mod 50000;
c := b1 div 20000;
c1 := b1 mod 20000;
d := c1 div 10000;
d1 := c1 mod 10000;
e := d1 div 5000;
e1 := d1 mod 5000;
f := e1 div 2000;
f1 := e1 mod 2000;
g := f1 div 1000;
g1 := f1 mod 1000;
h := g1 div 500;
h1 := g1 mod 500;
i := h1 div 200;
i1 := h1 mod 200;
j := i1 div 100;
j1 := i1 mod 100;
k := j1 div 50;
k1 := j1 mod 50;

writeln('Jumlah pecahan uang 100.000 : ',a);
writeln('Jumlah pecahan uang 50000 : ',b);
writeln('Jumlah pecahan uang 20000 : ',c);
writeln('Jumlah pecahan uang 10000 : ',d);
writeln('Jumlah pecahan uang 5000 : ',e);
writeln('Jumlah pecahan uang 2000 : ',f);
writeln('Jumlah pecahan uang 1000 : ',g);
writeln('Jumlah pecahan uang 500 : ',h);
writeln('Jumlah pecahan uang 200 : ',i);
writeln('Jumlah pecahan uang 100 : ',j);
writeln('Jumlah pecahan uang 50 : ',k);
end.