Вывести все трехзначные натуральные числа, сумма цифр которых равна заданному числу (через repeat)

var
  i, n, a, b, c: integer;
 
begin
  writeln('введите сумму');
  readln(n);
  i := 99;
  repeat
    i += 1;
    a := i div 100;
    b := i div 10 mod 10;
    c := i mod 10;
    if (a + b + c) = n then writeln(i);
  until i > 999;
  
  
end.

begin
  var N := ReadLnInteger('N =');
  for var a := 1 to 9 do
    for var b := 0 to 9 do
      if N-a-b in [0..9] then
        Write(a, b, N-a-b, #32);
end.

var
  a,b,c,n:integer;
  ok:boolean;
begin
  write('N=');readln(n);
  a:=1;
  repeat
    if c=10 then begin
      b:=b+1;
      c:=0;
    end;
    if b=10 then begin
      a:=a+1;
      b:=0;
    end;
    if a+b+c=n then begin
       writeln(a,b,c);
       ok:=true;
     end;  
    c:=c+1;    
  until (a=9) and (b=9)and (c=10);
  if not ok then writeln('трехзначные числа, сумма цифр которых равна ',n,', отсутствуют');
end.

begin
  var N := ReadLnInteger('N =');
  var a := 1; var b := -1;
  repeat
    b += 1; if b > 9 then begin b := 0; a += 1; end;
    
    if (a < 10) and (N-a-b in [0..9]) then
      Write(a, b, N-a-b, #32);
  until a > 9;
end.