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

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

Дано натуральное число N (3≤N≤30). Сколько существует наборов из трёх натуральных чисел, сумма которых равна N? Числа в наборе необязательно разные. ПРИМЕР. 6=1+2+3=1+1+4=2+2+2. Перестановка чисел данного набора не является новым решением

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

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

var n,a,b,k:integer;
begin
repeat
write('n=[3..30] n=');
readln(n);
until n in [3..30];
k:=0;
for a:=1 to n div 3 do
for b:=a to (n-a) div 2 do inc(k);
write('k=',k);
end.

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

Объявлены четыре переменные: n, a, b, k типа integer.
Переменная n инициализируется значением, равным 30.
Цикл repeat предназначен для повторного выполнения всего кода, пока значение переменной n не будет выбрано из диапазона [3..30].
В каждой итерации цикла переменная n считывается с помощью функции readln.
Цикл for предназначен для перебора всех возможных значений переменной a от 1 до n/3.
Внутри цикла for выполняется еще один цикл for, который перебирает все возможные значения переменной b от a до (n-a)/2.
Каждый раз, когда выполняется внутренний цикл for, к переменной k прибавляется единица.
После окончания циклов выводится значение переменной k с помощью функции writeln.
Код заканчивается, когда значение переменной n не принадлежит больше ни одному из диапазонов [3..30].