Каким наименьшим количеством денег можно выплатить указанную сумму - Pascal ABC (250172)

Формулировка задачи:

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

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

Листинг программы

const n = 7;
  a: array[1..n] of integer = (1, 2, 4, 8, 16, 32, 64);
var i, count, k: integer;
begin
  read(k);
  count := 0;
  for i := n downto 1 do
    while a[i] <= k do begin
      write(a[i], ' ');
      dec(k, a[i]);
      inc(count);
    end;
  writeln;
  writeln(count);
end.

Объяснение кода листинга программы

В начале программы объявляются константы и переменные: — n = 7 (количество элементов в массиве a) — a = (1, 2, 4, 8, 16, 32, 64) (массив из n целых чисел, начинающихся с 1 и увеличивающихся на 1 с каждой итерацией) — i, count, k = 0 (три переменные для управления циклом)
В первой строке программы считывается значение k (предполагается, что пользователь вводит число).
В следующей строке устанавливается счетчик count в 0.
Используется цикл for для перебора элементов массива a в обратном порядке (от n до 1).
Внутри цикла используется вложенный цикл while для проверки, является ли текущий элемент массива a меньше или равным k.
Если условие выполняется, то текущий элемент выводится на экран, а его значение вычитается из k.
После каждой итерации внутреннего цикла значение count увеличивается на 1.
Когда внутренний цикл завершается (когда k становится меньше или равным 0), программа переходит к следующей итерации внешнего цикла.
После завершения внешнего цикла программа выводит на экран значение count.