program Hello;
var money : integer;
    cur : array[1..9] of integer;
    d : array[1..9] of integer;
    i,k : integer;
begin
    writeln('Nhap so tien can tinh: ');
    readln(money);
    k := 0;
    for i:=1 to 9 do d[i] := 0;
    cur[1]:=500;cur[3]:=100;cur[4]:=50;cur[5]:=20;
    cur[2]:=200;cur[6]:=10;cur[7]:=5;cur[8]:=2;cur[9]:=1;
    i := 1;
    while money > 0 do
    begin
        if money >= cur[i] then
        begin
            dec(money,cur[i]);
            inc(d[i]);
        end;
        if money < cur[i] then inc(i);
    end;



    if (d[1] > 0) then writeln('So to 500k la: ',d[1]);



// còn mấy dòng cuối tự ghi lại, y hệt như dòng 500k
end.