Каким наименьшим количеством денег можно выплатить указанную сумму

var k,i,x,y,sum:integer;
begin
 
 writeln('введите сумму, которою нужно оплатить');
 read(sum);
  x:=1; y:=0;
while (x<64)  do
 x:=x*2;
 
 
 
 end.

uses crt;
var
N:array[1..100] of integer;
x:array[1..100] of integer;
K,i,d:integer;
Begin
 write('Ââåäèòå ñóììó: ');
  readln(K);
 x[1]:=1;
  for i:=2 to 7 do
   x[i]:=x[i-1]*2;
 for i:=1 to 100 do
  n[i]:=0;
 n[7]:=trunc(k/x[7]);
 for i:=6 downto 1 do
  Begin
   n[i]:=trunc((k-x[i+1]*n[i+1]-x[i+2]*n[i+2]-x[i+3]*n[i+3]-x[i+4]*n[i+4]-x[i+5]*n[1+5]-x[i+6]*n[1+6])/x[i]);
    end;
 if K>32 then
  begin
   n[1]:=n[1]-64;
   n[2]:=n[2]+32;
    end;
 if n[1]<0 then
  begin
   n[2]:=trunc((k-x[3]*n[3]-x[4]*n[4]-x[5]*n[5]-x[6]*n[6]-x[7]*n[7])/x[2]);
   n[1]:=1;
    end;
 for i:=1 to 7 do
  Begin
   if n[i]>0 then
    writeln(n[i], ' банкнот, номиналом в ', x[i]);
     end;
 end.

var
s,i,k:integer;
a:array[1..7]of integer;
begin
readln(s);
k:=64;
for i:=1 to 7 do
begin
a[i]:=s div k;
s:=s mod k;
k:=k div 2;
end;
k:=64;
for i:=1 to 7 do
begin
if a[i]<>0 then writeln(a[i],'*',k);
k:=k div 2;
end;
end.