Задача по программированию, очень легкая. Кто решит?

Question

В банкомате имеются в достаточном количестве купюры номиналом 10, 20, 50, 100, 200 и 500 гривен. Найти минимальное количество купюр, которое необходимо использовать, чтобы выдать сумму в n гривен или вывести -1, если указанную сумму выдать нельзя. 
 Входные данные 
 
 Одно число n (1 ≤ n ≤ 1000000). 
 
Выходные данные 
 
 Вывести n. 
для Паскаль или Делфи

Нютка · Accepted Answer

program z1; 
 
var a,k:longint; 
 
begin 
readln(a); 
k:=0; 
a:=1000-a; 
 while a<>0 do 
 begin 
 while a>=500 do begin a:=a-500; inc(k); end; 
 while a>=100 do begin a:=a-100; inc(k); end; 
 while a>=50 do begin a:=a-50; inc(k); end; 
 while a>=10 do begin a:=a-10; inc(k); end; 
 while a>=5 do begin a:=a-5; inc(k); end; 
 while a>=1 do begin a:=a-1; inc(k); end; 
 end; 
writeln(k); 
end.