Составить программу в паскале с использованием циклических операторов: Среди всех чисел,меньших к ( к

function sum(i, n: integer): boolean;
var
  a, b: integer;
begin
  a := i;
  repeat
    b := b + a mod 10;
    a := a div 10;
  until (a = 0);
  sum := (b = n);
end;

var
  n, i, k: integer;
begin
  readln(n, k);
  for i := 1 to k do
    if sum(i, n) then
      writeln(i);
end.