Задача: Часто-густо громадяни намагаються з'ясувати наскільки багатими є депутати. Дехто вірить, що матеріальні статки деяких депутатів є необмеженими.
Тож уявіть собі депутата, у якого є необмежена кількість купюр всіх номіналів(500,200,100,50,20,10,5,2 та 1 гривень).Він хоче придбати подарунюк, що коштує N гривень. Незважаючи на те, що наш геро-олігарх є нескінченно багатим, також він нескінченно скупий.Саме тому він хоче оплатити покупку готівкою без решти. Яка мінімальна кількість купюр йому знадобиться?

Потрібно ввести число N(ціну), а вивести кількість купюр.

Задачу написав, але не працює коректно. Допоможіть!

Код:

var n,p:integer;
begin
read(n);
p:=0;
while n<>0 do begin
if n>=500 then begin n:=n-500; p:=p+1; end;
if n>=200 then begin n:=n-200; p:=p+1; end;
if n>=100 then begin n:=n-100; p:=p+1; end;
if n>=50 then begin n:=n-50; p:=p+1; end;
if n>=20 then begin n:=n-20; p:=p+1; end;
if n>=10 then begin n:=n-10; p:=p+1; end;
if n>=5 then begin n:=n-5; p:=p+1; end;
if n>=2 then begin n:=n-2; p:=p+1; end;
if n=1 then begin n:=n-1; p:=p+1; end; end;
write(p);
end.