TUGAS 3 :

Program kembalian_uang_belanja;
uses wincrt;

var
uang,bayar,kembali : longint;

begin
writeln('****Yeni Hidayana****');
write('Jumlah Bayar : ');readln(bayar);
writeln('----------------------------');
write('Jumlah Uang : ');readln(uang);
writeln('----------------------------');
kembali:=uang-bayar;
writeln('Total Kembali : ',kembali);
writeln('----------------------------');

if kembali div 100000 > 0 then begin
writeln(kembali div 100000, ' lembar seratus ribuan ');
kembali := kembali mod 100000;
end;

if kembali div 50000 > 0 then begin
writeln(kembali div 50000, ' lembar lima puluh ribuan ');
kembali := kembali mod 50000;
end;

if kembali div 20000 > 0 then begin
writeln(kembali div 20000, ' lembar dua puluh ribuan');
kembali := kembali mod 20000;
end;

if kembali div 10000 > 0 then begin
writeln(kembali div 10000, ' lembar sepuluh ribuan');
kembali := kembali mod 10000;
end;

if kembali div 5000 > 0 then begin
writeln(kembali div 5000, ' lembar lima ribuan');
kembali := kembali mod 5000;
end;

if kembali div 1000 > 0 then begin
writeln(kembali div 1000, ' lembar seribuan');
kembali := kembali mod 1000;
end;

if kembali div 500 > 0 then begin
writeln(kembali div 500, ' keping lima ratusan');
kembali := kembali mod 500;
end;

if kembali div 200 > 0 then begin
writeln(kembali div 200, ' keping dua ratusan');
kembali := kembali mod 200;
end;


if kembali div 100 > 0 then begin
writeln(kembali div 100, ' keping seratusan');
kembali := kembali mod 100;
end;


if kembali div 50 > 0 then begin
writeln(kembali div 50, ' keping lima puluhan');
kembali := kembali mod 50;
end;

writeln('**** THANKS 4 COMING ****');

end.