Из чисел от 10 до 99 вывести те, сумма цифр которых

Из чисел от 10 до 99 вывести те, сумма цифр которых равна S(0 lt; S lt; 18).
Обозначим: k - это просматриваемое число; p1 - это 1-ая цифра числа k, р2 - это 2-ая цифра числа k; s - это сумма цифр данного числа k. Число k будем выписывать только в том случае, когда сумма p1 и р2 будет равна s.
PASCAL ABC