Найти количество трехзначных чисел, сумма цифр которых равна А, а само число заканчивается цифрой В (А и В вводятся с клавиатуры) - Pascal

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

Найти количество трехзначных чисел, сумма цифр которых равна А, а само число заканчивается цифрой В (А и В вводятся с клавиатуры).

Решение задачи: «Найти количество трехзначных чисел, сумма цифр которых равна А, а само число заканчивается цифрой В (А и В вводятся с клавиатуры)»

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

var
  ab: array [1..27, 0..9] of integer;
  i, b: integer;
begin
  FillChar(ab, SizeOf(ab), #0);
  for i := 100 to 999 do
    Inc(ab[i div 100 + i div 10 mod 10 + i mod 10, i mod 10]);
  Write(' \B'); for b := 0 to 9 do Write(b:3); WriteLn;
  Write('A \'); for b := 0 to 9 do Write('---'); WriteLn;
  for i := 1 to 27 do begin
    Write(i:2, '|');
    for b := 0 to 9 do Write(ab[i, b]:3);
    WriteLn;
  end;
end.

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

Создается массив ab, который будет хранить числа от 0 до 999.
Заполняется весь массив нулями с помощью функции FillChar.
Запускается цикл for, который проходит по всем числам от 100 до 999.
Внутри цикла число i делится на 100, 10 и 10, чтобы получить последние три цифры числа.
Затем число i увеличивается на единицу с помощью функции Inc.
После завершения внутреннего цикла, выводится пробел и выводится количество цифр в числе.
Выводится запрос на ввод двух цифр для переменной b.
Выводится запрос на ввод цифры для переменной A.
Выводится строка -- для переменной b.
Выводится строка A для переменной A.
Запускается внешний цикл for, который проходит по всем числам от 1 до 27.
Внутри внешнего цикла выводится число i в виде i:2|ab[i, b] и выводится количество цифр в числе.
После завершения внешнего цикла выводится символ новой строки WriteLn.