tugas tampilan rincian uang dan kembalian 1

program tampilan rincian uang;
uses wincrt;
var
a,b:longint;
j,c,d,e,f,g,h,i,k:longint;
begin
writeln('---------------wahyusaptaaji----------------+');
writeln('Masukkan Nilai Uang');readln(a);
writeln('+---------------------------------+');
writeln('Masukkan Nilai Harga Barang');readln(b);
writeln('+---------------------------------+');
j:=a-b;
writeln('kembalian=',j);
writeln('rinciannya adalah :!!!!');
c:=j div 50000;
d:=(j mod 50000)div 10000;
e:=(j mod 10000)div 5000;
f:=(j mod 5000)div 2000;
g:=(j mod 2000)div 1000;
h:=(j mod 1000)div 500;
i:=(j mod 500)div 200;
k:=(j mod 200)div 100;
writeln('',c,'.LEMBAR=50000');
writeln('',d,'.LEMBAR=10000');
writeln('',e,'.LEMBAR=5000');
writeln('',f,'.LEMBAR=2000');
writeln('',g,'.LEMBAR=1000');
writeln('',h,'.LEMBAR=500');
writeln('',i,'.LEMBAR=200');
writeln('',k,'.LEMBAR=100');
writeln;
writeln('TERIMAKASIH DAN DATANG KEMBALI');
end.