uses crt;
var x, a1, a2, a3, a4, a5,a6, a7 : integer;
begin
clrscr;
write(' nhap so tien :'); readln(x);
a1 := x div 500; x := x - a1 * 500;
a2 := x div 200; x := x - a2 * 200;
a3 := x div 100; x := x- a3* 100;
a4 := x div 50; x := x - a4 * 50;
a5 := x div 20; x := x - a5 * 20;
a6 := x div 10; x := x - a6 * 10;
a7 := x div 5;
if a1 > 0 then writeln('so to 500 la :', a1,' to ');
if a2 > 0 then writeln('so to 200 la :', a2,' to ');
if a3 > 0 then writeln('so to 100 la :', a3,' to ');
if a4 > 0 then writeln('so to 50 la :', a4,' to ');
if a5 > 0 then writeln('so to 20 la :', a5,' to ');
if a6 > 0 then writeln('so to 10 la :', a6,' to ');
if a7 > 0 then writeln('so to 5 la :', a7,' to ');
readln
end.

Uses crt;
Var m,i: LongInt;
Begin
    clrscr;
    repeat
        write('Nhap so tien can rut (ngan dong): '); readln(m);
        if m mod 5<>0 then 
            begin
            clrscr;
            writeln('ATM khong tra tien le, vui long nhap lai');
            end
        else writeln('Rut tien thanh cong');
    until (m mod 5=0);
    if m div 500>=1 then 
        begin
        writeln('So to tien 500 (ngan dong) la: ',m div 500,' to');
        m:= m mod 500;
        end;
    if m div 200>=1 then 
        begin
        writeln('So to tien 200 (ngan dong) la: ',m div 200,' to');
        m:= m mod 200;
        end;
    if m div 100>=1 then 
        begin
        writeln('So to tien 100 (ngan dong) la: ',m div 100,' to');
        m:= m mod 100;
        end;
    if m div 50>=1 then 
        begin
        writeln('So to tien 50 (ngan dong) la: ',m div 50,' to');
        m:= m mod 50;
        end;
    if m div 20>=1 then 
        begin
        writeln('So to tien 20 (ngan dong) la: ',m div 20,' to');
        m:= m mod 20;
        end;
    if m div 10>=1 then 
        begin
        writeln('So to tien 10 (ngan dong) la: ',m div 10,' to');
        m:= m mod 10;
        end;
    if m div 5>=1 then 
        begin
        writeln('So to tien 5 (ngan dong) la: ',m div 5,' to');
        m:= m mod 5;
        end;
    readln;
End.