Uses crt;
Var n,i: LongInt;
Begin
    clrscr;
    repeat
        write('Nhap so tien can rut: '); readln(n);
        if n mod 10000<>0 then 
            begin
            clrscr;
            writeln('ATM khong tra tien le, vui long nhap lai');
            end
        else writeln('Rut tien thanh cong');
    until (n mod 10000=0);
    if n div 500000>=1 then 
        begin
        writeln(n div 500000,' to 500.000');
        n:= n mod 500000;
        end;
    if n div 200000>=1 then 
        begin
        writeln(n div 200000,' to 200.000');
        n:= n mod 200000;
        end;
    if n div 100000>=1 then 
        begin
        writeln(n div 100000,' to 100.000');
        n:= n mod 100000;
        end;
    if n div 50000>=1 then 
        begin
        writeln(n div 50000,' to 50.000');
        n:= n mod 50000;
        end;
    if n div 20000>=1 then 
        begin
        writeln(n div 20000,' to 20.000');
        n:= n mod 20000;
        end;
    if n div 10000>=1 then 
        begin
        writeln(n div 10000,' to 10.000');
        n:= n mod 10000;
        end;
    readln;
End.

uses crt;

var n,gia1,gia2,gia3,gia4,gia5,gia6:longint;

begin

clrscr;

write('nhap so tien n: ');readln(n);

gia1:=n div 500000;

n:=n-gia1*500000;

gia2:=n div 200000;

n:=n-gia2*200000;

gia3:=n div 100000;

n:=n-gia3*100000;

gia4:=n div 50000;

n:=n-gia4*50000;

gia5:=n div 20000;

n:=n-gia5*20000;

gia6:=n div 10000;

n:=n-gia6*10000;

writeln(gia1,' to 500000   ',gia2,' to 200000    ',gia3,' to 100000    ',gia4,' to 50000    ',gia5,' to 20000    ',gia6,' to 10000');

readln;

end.