Проблема с рекурсией. Необходимо посчитать кол-во найденных комбинаций.

[X-Viktor]

Всем доброго дня.
При решении задачи, столкнулся с проблемой. Необходимо посчитать кол-во найденных комбинаций.
Всё перепробовал, так и не выходит. Помогите)

program num_3;

var
  n: integer;
 
procedure rec(n, s, j: integer);
  
  var
    i, a: integer;
    
  begin
    
    for i := j to n // Перебор всех комбинаций
      do
        if s + i = n // Если найдена комбинация
          then
            begin
              // Вот тут счёт
            end
          else
            if s + i < n
              then
                rec(n, s+i, i);
  end;

begin
  write('Введите число: ');
  readln(n);
  
  rec(n, 0, 1);
end.

[Serge_Bliznykov]

а что должен подсчитать данный код?

впрочем, неважно.

Если ваш код работает, то достаточно ввести ещё одну переменную:

program num_3;


procedure rec(n, s, j: integer; var count : integer);
  
  var
    i, a: integer;
    
  begin
    
    for i := j to n // Перебор всех комбинаций
      do
        if s + i = n // Если найдена комбинация
          then
            begin
              // Вот тут счёт
              count := count + 1
            end
          else
            if s + i < n then rec(n, s+i, i, count);
  end;

var
  n, c: integer;

begin
  write('Введите число: ');
  readln(n);
  c := 0;
  rec(n, 0, 1, c);
  WriteLn('Count = ',c);
end.