Среди всех n-значных чисел укажите те, сумма цифр которых равна данному числу k.

Program proga;

var k, i:integer;

n, d1, d:LongInt;

st:string;

begin

d:=0;

k:=0;

n:=0;

d1:=0;

writeln ('Введите n-значное число, и число k') ;

readln (n, k) ;

str (n, st) ;

for i:=length (st) downto 1 do begin

val (st[i], d1, d) ;

{d1:=d1+d; }

d1:=d1+d1;

{writeln (d1) ; }

end;

if (d1=k) or (n=k) then

writeln ('Сумма чисел n значного числа = k')

else writeln ('Сумма чисел n значного числа не ровна k') ;

end.