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

Формулировка задачи:

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

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

Листинг программы

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.

Объяснение кода листинга программы

Объявляются переменные: a и b типа integer.
Считывается значение с клавиатуры и сохраняется в переменную a с помощью функции read(a).
Проверяется, если a меньше 10, то переменной b присваивается значение a.
Если a больше или равно 10, то переменной b присваивается значение 9 + 10 * (a - 9).
Запускается цикл while с условием (b <= a * 10) и (b < 100).
Внутри цикла выводится значение переменной b на экран с помощью функции writeln(b).
После вывода значения, к переменной b прибавляется 9.
Цикл завершается.