Количество чисел с заданной разрядностью и одинаковой суммой цифр

program Project5;
 
{$APPTYPE CONSOLE}
 
uses
  SysUtils;
 
var k,n,i,ii,j,kol_vo,sum : longint;
    text                      : string;
    error                     : integer;
begin
  write('Max razryad chisla = ');readln(n);
  write(' Summa cifr = ');readln(k);
  if k=0 then
  begin
    write('answer : 1');
    readln;halt
  end;
  kol_vo:=0;
  for i:=1 to Round((Exp(n*ln(10))-1)) do
    begin
      str(i,text);
      sum:=0;
      for j:=1 to length(text) do
      begin
        val(text[j],ii,error);
        sum:=sum+ii
      end;
      if k=sum then
        inc(kol_vo);
    end;
  write('otvet : ',kol_vo);
  readln;
end.

{$mode delphi}
const
  D : string = '0123456789ABCDEF';
 
var
  count : integer;
 
procedure print(base, n, k : integer;
                s : string = ''; sum : integer = 0);
var i : integer;
begin
  if length(s) = n then
  begin
    if sum = k then
    begin
      inc(count);
      writeln(' >>> ', s); // Это для проверки, можешь убрать
    end
  end
  else
    for i := 1 to base do
      print(base, n, k, s + D[i], sum + pred(i));
end;
 
var
  base, n, k : integer;
 
begin
  //write('base: '); readln(base);
  //write('n digits: '); readln(n);
  //write('k : '); readln(k);
 
  base := 2; // двоичные числа
  n := 5; // 5-значные
  k := 2; // с суммой = 2
 
  print(base, n, k);
  writeln('count = ', count);
end.