Вывести на экран только те суммы цифр, которых больше заданного числа - Turbo Pascal

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

а) сформировать одномерный массив из k чисел Трибоначчи, вычисленных по формуле «назад», т.е. Tn=Tn+3 - Tn+2 - Tn+1. б) Среди всех четырехзначных натур. чисел вывести на экран только те суммы цифр которых больше заданного числа P. в) для чисел из б) вывести кол-во делителей. Все это с помощью подпрограммы надо сделать

Решение задачи: «Вывести на экран только те суммы цифр, которых больше заданного числа»

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

var
  i,j,p,k:integer;
begin
  write('p=');readln(p);
  if p<36 then begin
    for i:=1000 to 9999 do 
      if i div 1000+i div 100 mod 10+i mod 100 div 10+i mod 10>p then begin
        k:=2;
        for j:=2 to i div 2+1 do if i mod j=0 then k:=k+1;
        writeln(i,':',k);
      end;
  end
  else writeln('нет таких чисел');
end.

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

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

i - переменная для хранения чисел от 1000 до 9999;
j - переменная для хранения чисел от 2 до i / 2 + 1;
p - переменная для хранения числа, которое нужно найти;
k - переменная для хранения количества цифр, которые дают сумму больше заданного числа. Код начинается с запроса числа p через функцию readln(). Затем происходит проверка, является ли значение переменной p меньше 36. Если это так, то происходит цикл, в котором для каждой переменной i от 1000 до 9999 проверяется, делится ли она на 1000, 100 и 10. Если это так и сумма цифр больше заданного числа p, то переменная k устанавливается равной 2, а переменная j инициализируется значением 2. Цикл продолжается до тех пор, пока i не будет делиться на j без остатка. В конце цикла выводится число i и его сумма цифр k. Если значение переменной p больше 36, то выводится сообщение нет таких чисел. Таким образом, данный код позволяет вывести на экран только те суммы цифр, которых больше заданного числа.