Определить, сколько разных значений может иметь прибыль Ивана - Free Pascal

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

Иван продал стульев на сумму a руб., кресел на сумму b руб., ковров на сумму c руб. Сумма его накладных расходов - d руб. Напишите программу, которая определяет, сколько разных значений может иметь прибыль Ивана, если a>b>=c>d. Заранее благодарен за помощь.

Решение задачи: «Определить, сколько разных значений может иметь прибыль Ивана»

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

program test;
 
var
  a, b, c, d: integer;
begin
  readln(a);
  writeln('a=', a);
  writeln('b': 3, 'c': 3, 'd': 3);
  for b := a - 1 downto 1 do
    for c := b downto 1 do
      for d := c - 1 downto 0 do
        writeln(b: 3, c: 3, d: 3);
end.

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

В данном коде с помощью трех вложенных циклов формируются все возможные комбинации трех переменных b, c, d, начиная с заданного значения переменной a. Значения переменных b, c, d выводятся на экран с помощью writeln, при этом используется формат вывода с указанием смещения (3) для переменной b и формат вывода с указанием смещения (3) и заданным шагом (3) для переменных c и d.

Переменная a инициализируется значением, которое считывается из стандартного ввода с помощью readln.
Выводится значение переменной a с помощью writeln, при этом используется формат вывода с указанием смещения (0), так как переменная a не имеет заданного значения.
Используя формат вывода с указанием смещения (3) и заданным шагом (3), выводятся значения переменных b, c, d.
С помощью трех вложенных циклов формируются все возможные комбинации значений переменных b, c, d, начиная с заданного значения переменной a.
Значения переменных b, c, d выводятся на экран с помощью writeln, при этом используется формат вывода с указанием смещения (3) для переменной b и формат вывода с указанием смещения (3) и заданным шагом (3) для переменных c и d.