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

uses crt;
var
i,n,k:integer;
begin
i:=64;
writeln('skolko deneg?');
readln(n);
writeln('nado: ');
while i>=1 do begin
k:=n div i;
if k>0 then writeln(k,' kypyr nominalom ',i,' landika');
n:=n mod i;
i:=i div 2;
end;
end.