function sum(i, n: <em>integer</em>): <em>boolean</em>; var a, b: <em>integer</em>; begin a := i; repeat b := b + a mod 10; a := a div 10; until (a = 0); sum := (b = n); end;
var n, i, k: <em>integer</em>; begin readln(n, k); for i := 1 to k do if sum(i, n) then writeln(i); end.