delphi

прочитать файл 'message.dat'
ввести ограничение n<=33;
если всё число,записанное в файле <34 ,то в переменную "а" прибавляем 1, если нет - ничего не делаем
если перебирать все числа по одной то можно ещё не выполняя операций прибавить ещё 1
после нужно перебрать все возможные варианты компонования пар и за каждое прибавляем 1
потом проверяем сочетания пар и одиночных цифр и прибавляем.
конец.