Сколько комплектов упаковок можно составить. - Pascal

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

Для школьной столовой нужно купить 155кг крупы. На складе имеются упаковки по 7, 12 и 15 кг. Сколько комплектов упаковок можно составить. Упаковки вскрывать нельзя.

Решение задачи: «Сколько комплектов упаковок можно составить.»

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

var i,j,k,l:integer;
begin
  for i:=0 to 155 div 15 do
    for j:=0 to 155 div 12 do begin
      l:=155-i*15-j*12;
      if (l>=0) and (l mod 7=0) then begin
        writeln('15x',i,' 12x',j,' 7x',(155-i*15-j*12) div 7);
        k:=k+1;
      end;
      end;
  writeln(k)
end.

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

Объявляются переменные:
- i, j, k, l типа integer.
Начинается цикл:
- Переменная i перебирает значения от 0 до результата целочисленного деления 155 на 15.
- Переменная j перебирает значения от 0 до результата целочисленного деления 155 на 12.
Внутри вложенного цикла вычисляется значение переменной l:
- l присваивается результат 155 минус i умноженное на 15 и j умноженное на 12.
Проверяется условие:
- Если l больше или равно 0 и при делении l на 7 остаток равен 0, то выполняется блок внутри условия.
В случае выполнения условия выводится на экран сообщение о возможных комплектах упаковок:
- Количество упаковок по 15 шт.: i.
- Количество упаковок по 12 шт.: j.
- Количество упаковок по 7 шт.: результат деления (155 минус i умноженное на 15 и j умноженное на 12) на 7.
Увеличивается значение переменной k на 1.
По завершении всех циклов на экран выводится значение переменной k.