В некоторой стране используются денежные купюры достоинством в 1, 2, 4, 8, 16, 32 и 64. дано натуральное число N. Как наименьшим количеством таких денежных купюр можно выплатить сумму N (указать количество каждой из используемых для выплаты купюр)? Предполагается, что имеется достаточно большое количество купюр всех достоинств - Pascal(Паскаль) - Справочник юного программиста Pascal/Delphi

var
n,k:integer; 
begin
readln (n);
k:=64;
while n>0 do
begin
if n>=k then writeln(n div k,'*',k);
n:=n mod k;
k:=k div 2;
end;
readln;
end.