program pecahan

uses wincrt;
var
uang,pecah1,pecah2,pecah3,pecah4,pecah5,pecah6,pecah7,pecah8,pecah9,pecah10
: longint;
begin
94
write('TOTAL Belanja = ');readln(uang);
pecah1:=uang div 100000;
uang:=uang mod 100000;
pecah2:=uang div 50000;
uang:=uang mod 50000;
pecah3:=uang div 20000;
uang:=uang mod 20000;
pecah4:=uang div 10000;
uang:=uang mod 10000;
pecah5:=uang div 5000;
uang:=uang mod 5000;
pecah6:=uang div 1000;
uang:=uang mod 1000;
pecah7:=uang div 500;
uang:=uang mod 500;
pecah8:=uang div 100;
uang:=uang mod 100;
pecah9:=uang div 50;
uang:=uang mod 50;
pecah10:=uang div 25;
uang:=uang mod 25;
writeln('100000 ada ',pecah1);
writeln('50000 ada ',pecah2);
writeln('20000 ada ',pecah3);
writeln('10000 ada ',pecah4);
writeln('5000 ada ',pecah5);
writeln('1000 ada ',pecah6);
writeln('500 ada ',pecah7);
writeln('100 ada ',pecah8);
writeln('50 ada ',pecah9);
writeln('25 ada ',pecah10);
end.