Составить программу в паскале для решения : определить количество трёхзначных чисел сумма цифр которая равна заданному числу a, и средняя цифра чётная. заранее !

Programma написана на pascalABC, не тестил, но вродебо работает,
если не работает напишите в комментарии, какое именно число не работает