Ответ:

var s,k1,k2,k3,k4,k5:integer;

begin

write('s='); readln(s);

k1:=s div 1000;

k2:=s mod 1000 div 500;

k3:=s mod 500 div 100;

k4:=s mod 100 div 50;

k5:=s mod 50;

writeln('1000 - ',k1,',  500 - ',k2,',  100 - ',k3,',  50 - ',k4,',  10 - ',k5);

end.

Пример работы программы:

s=16870

1000 - 16,  500 - 1,  100 - 3,  50 - 1,  10 - 20

Объяснение:

money = int(input())

rubl1000 = money / 1000

rubl500 = money % 1000 / 500

rubl100 = money % 500 / 100

rubl50 = money % 100 / 50

rubl10 = money % 50

print("1000:",int(rubl1000))

print("500:",int(rubl500))

print("50:",int(rubl50))

print("10:",int(rubl10))