Delphi задача

[kazzz]

Помогите написать программу с таким условием: Дано натуральное число N. Каким наименьшим количеством монет можно выплатить N копеек. В наличии имеются монеты достоинством 1,3,5,10,20 и 50 копеек.

Желательно с пояснениями. Заранее благодарен!

[evg_m]

nn:=n;
k50:=nn div 50;//какую сумму мы может выдать монетами по 50 (точнее число таких моет)
nn:=nn mod 50;//сумма(остаток) которую нельзя выдать такой монентой
далее по аналогии (не забываем про остаток nn)
k20:=...
k10:=...
k5:=....
k3:=....
k1:=....
а потом суммируем k:=k50 + ... + k1;

[Z1000000]

Program Monets;
const Monet : array[1..6] of Integer = (1,3,5,10,20,50);
var
 N,K,i : Integer;
begin
i := 6;
writeln ('Введите необходимую сумму :');
readln(N);
repeat
 begin
 K := N div Monet[i];
 if K <> 0 then
  writeln ('Требуется ',K,' монет достоинством ',Monet[i]);
 N := N mod Monet[i];
 i := i-1;
 end
until (N = 0);
readln;
end.