Упращение формулы только второе

Var m : array[0..6] of Integer;
  i,k,N : Integer;
Begin
  For i:=0 to 6 do m[i]:=0;
  Readln(N);
  k:=6;
  While N>0 do
  Begin
    If N>=Power(2,k) then
    Begin
      N:=N-Trunc(Power(2,k));
      Inc(m[k]);
    end else Dec(k);
  end;
  For i:=0 to 6 do Writeln(Power(2,i),'  ',m[i],' шт.');
end.

Еще вариант:
Const
  NN = 7;
  money : array[1..7] of Integer = (1,2,4,8,16,32,64);
Var m : array[1..NN] of Integer;
  i,k,N : Integer;
Begin
  For i:=1 to NN do m[i]:=0;
  Readln(N);
  k:=NN;
  While N>0 do
  Begin
    If N>=money[k] then
    Begin
      N:=N-money[k];
      Inc(m[k]);
    end else Dec(k);
  end;
  For i:=1 to NN do Writeln(money[i],'  ',m[i],' шт.');
end.

Объемы двух понятий исключают друг друга, но входят в третье более широкое.   1.     Суждение «Некоторые студенты учатся в МГЮА» является частноутвердительным, т.к. в нем присутствует частный квантор «некоторые» и  нет отрицательной частицы НЕ. Некоторые       студенты      учатся      в      МГЮА                    КВ                           S                          P                                             Некоторые S есть Р       I     S-  P+         Суждение  «Ни один студент не учится в МГЮА» является общеотрицательным, т.к. в нем присутствует общий квантор «ни один» и есть отрицательная частица  НЕ. Ни       один        студент      не       учится        в         МГЮА               КВ                              S                                     P                Ни один S не есть Р      Е      S+ P+       Суждения находятся в отношении противоречия и не могут быть одновременно не истинными не ложными  (Е – I).   4. Суждение «В здоровом теле здоровый дух» является  общеутвердительным. В    здоровом     теле     здоровый     дух                                                         S                                          P           Все  S  есть Р     А    S+  P-   5. Суждение  «Не верно, что Митя и Вася весь день просидели перед компьютером» является  противоречащим. Оно эквивалентно суждению «Митя и Вася  НЕ весь день просидели перед компьютером». По правилу частноотрицательных суждений  имеем «Некоторые S не есть Р». Митя  и  Вася   НЕ  весь  день  просидели  перед  компьютером                  S                                                            P      Некоторые  S  не есть Р     О    S- P+    

Объяснение: