Вложенные циклы. Определить число способов выплаты суммы n рублей - Turbo Pascal

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

ЗАДАЧА НА ТЕМУ ВЛОЖЕННЫЕ ЦИКЛЫ Дано натуральное число n(n<100).Определить число способов выплаты суммы n рублей с помощью монет достоинством 1, 2, 5 рублей и бумажных купюр достоинством 10 рублей.

Решение задачи: «Вложенные циклы. Определить число способов выплаты суммы n рублей»

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

var
  k1,k2,k3,k4,n,kol:longint;
begin
  kol:=0;
  readln(n);
  for k1:=1 to n do {количество монет по 1}
  begin
    for k2:=1 to ((n-k1) div 2) do {количество монет по 2}
    begin
      for k3:=1 to ((n-k1-k2*2) div 5) do {количество монет по 5}
      begin
        k4:=n-k1-k2*2-k3*5;
        if(k4>=0)and(k4 mod 10=0) then kol:=kol+1; {оставшиеся деньги, если они положительны и деляться на 10, то увеличим счётчик}
      end;
    end;
  end;
  writeln(kol);
end.

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

В данном коде на языке Turbo Pascal реализована задача по определению количества способов выплаты суммы n рублей с использованием вложенных циклов. Переменные в коде имеют следующие значения и названия:

k1, k2, k3, k4, n, kol: longint - целочисленные переменные, используемые для итераций по количеству монет разного номинала;
n: longint - сумма, которую необходимо выплатить;
kol: longint - счетчик, который увеличивается на единицу при каждом найденном возможном количестве монет для выплаты. Внутри первого цикла (от k1=1 до n) происходит итерация по количеству монет первого номинала (1 рубль). Для каждой итерации внутри второго цикла (от k2=1 до ((n-k1) div 2)) происходит итерация по количеству монет второго номинала (2 рубля). Для каждой итерации внутри третьего цикла (от k3=1 до ((n-k1-k22) div 5)) происходит итерация по количеству монет третьего номинала (5 рублей). После завершения всех циклов, в четвертом цикле (от k4=1 до n-k1-k22-k35), проверяется условие: если оставшаяся сумма денег (n-k1-k22-k3*5) положительна и делится на 10 без остатка, то увеличиваем счетчик kol на единицу. В конце программы выводится значение счетчика kol, которое и является искомым результатом - количеством способов выплаты суммы n рублей.