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