program detail_uang;

uses wincrt;

var

a,b,c,d,e,f,g,h,i,j,k,l,m,n,o,p,q,r,s,t,u,v,w,x,y,z:longint;

begin

write ('berapa uang yang harus di kembalikan');

writeln;

write('total harga =');readln (x);

write('jumlah uang =');readln(y);

z:=y-x;

writeln('uang kembalian anda=',z);

d:=z mod 100000;

p:=z div 100000;

e:=d mod 50000;

q:=d div 50000;

f:=e mod 20000;

r:=e div 20000;

g:=f mod 10000;

s:=f div 10000;

h:=g mod 5000;

t:=g div 5000;

i:=h mod 2000;

u:=h div 2000;

j:=i mod 1000;

v:=i div 1000;

k:=j mod 500;

w:=j div 500;

l:=k mod 200;

x:=k DIV 200;

m:=l mod 100;

y:=l div 100;

n:=m mod 50;

z:=m div 50;

IF p>0 THEN WRITELN('100000    =',p);

IF q>0 THEN WRITELN('50000     =',q);

IF r>0 THEN WRITELN('20000     =',r);

IF s>0 THEN WRITELN('10000     =',s);

IF t>0 THEN WRITELN('5000      =',t);

IF u>0 THEN WRITELN('2000      =',u);

IF v>0 THEN WRITELN('1000      =',v);

IF w>0 THEN WRITELN('500       =',w);

IF x>0 THEN WRITELN('200       =',x);

IF y>0 THEN WRITELN('100       =',y);

IF z>0 THEN WRITELN('50        =',z);

writeln;

writeln('terima kasih ,');

---

END.