Определить количество натуральных чисел, сумма цифр которых равна заданному числу N

var
  kol, n, i, j, k, f, p: integer;
  s: integer;
procedure CHISLA(n: integer; k: integer);
begin
  for i:=1 to k do
      j:=j*10;
  for i:=j div 10 to j-1 do
  begin
    p:=i;s:=0;
    while p>0 do
    begin
      s:=s+p mod 10;
      p:=p div 10;
    end;
    if s=n then
    begin
      f:=1;
      Writeln(i:5);
      inc(kol);
    end;
  end;
  if f=0 then write('Takih chisel net!');;
end;
begin
  repeat
    write('Введите количество цифр от 1 до 9 k=');
    readln(k);
  until k in [1..9];
  write('n=');
  readln(n);
  j := 1;
  CHISLA(n, k);
  writeln('Количество чисел:', kol);
end.

uses crt;
var i,n,kz,z,k: integer;
 
function SumZ (c: integer): integer;
var s: integer;
begin
s:=0;
if c<0 then c:=c*(-1);
if c<>0 then
   while c>=1 do
         begin
         inc(s,c mod 10);
         c:=c div 10;
         end;
SumZ:=s;
end;
 
begin
write('N='); readln(n);
write('Сколько чисел будет введено? '); readln(kz);
for i:=1 to kz do
    begin
    write('-->'); readln(z);
    if SumZ (z)=n then inc(k);
    end;
writeln('Количество чисел с суммой цифр (',n,'): ',k);
end.

function SumZ (c: integer): integer;     //функция, которая находит сумму цифр числа
var s: integer;                          //вспомогательная переменная для суммы
begin
s:=0;                                   //изначально сумма равна 0
if c<0 then c:=c*(-1);                  //если число отрицательное, превращаем его в положительное
if c<>0 then                            //если число не равно 0 (а если равно - то сумма 0, полюбому)
   while c>=1 do                        //пока число больше или равно 1
         begin
         inc(s,c mod 10);               //увеличиваем переменную суммы на последнюю цифру
         c:=c div 10;                   //уменьшаем число на 10, то есть переходим к следующей цифре
         end;
SumZ:=s;                               //функции присваивается значение полученной суммы
end;