Для всех чисел от 0 до 99 (целых) выбрать и вывести на экран такие, сумма цифр которых равна заданному числу - Pascal

var
  a, b: integer;
 
begin
  read(a);
  if a < 10 then
    b := a
  else
    b := 9 + 10 * (a - 9);
  while (b <= a * 10) and (b < 100) do
  begin
    writeln(b);
    b := b + 9;
  end;
end.