
program memecakan_rupia;
uses crt;
var awal,uang:longint;
ratusribu,limpulrb,duapulrb,sepulrb,limrb,duarb,serb:byte;
limrts,duarts,serts,limpul:byte;
label lagi;
begin
lagi:
writeln('memecakan mata uang dalam pecahan rupia ');
writeln('======================================= ');
write('mesukan jumla uang anda RP= ');readln(uang);
if uang <0 data-blogger-escaped-p="" data-blogger-escaped-then=""> begin
writeln('masukan salah');
...