pascal program kembalian uang

Program Menghitung_jml_pecahan;
uses crt;
var
jml_uang : longint;
rb1,rt500,rt100,an50,an25 : longint;
rb1x,rt500x,rt100x,an50x,an25x : longint;
begin
clrscr;
writeln('PROGRAM MENGHITUNG JUMLAH PECAHAN');
writeln;
write('Tulis Jumlah uang : ');readln(jml_uang);
writeln('------------------------------------------');


rb1 := jml_uang div 1000;
rb1x := jml_uang mod 1000;
rt500 := rb1x div 500;
rt500x := rb1x mod 500;
rt100 := rt500x div 100;
rt100x := rt500x mod 100;
an50 := rt100x div 50;
an50x := rt100x mod 50;
an25 := an50x div 25;
an25x := an50x mod 25;




writeln('Jumlah pecahan uang 1.000 : ',rb1);
writeln('Jumlah pecahan uang 500 : ',rt500);
writeln('Jumlah pecahan uang 100 : ',rt100);
writeln('Jumlah pecahan uang 50 : ',an50);
writeln('Jumlah pecahan uang 25 : ',an25);
writeln('------------------------------------------');
if an25x > 0 then
begin
writeln('Sisa yang tidak terdapat');
writeln('dalam pecahan mata uang adalah : ',an25x,',-');
writeln('------------------------------------------');
end;
readln;
end.