Доброго времени суток! Пожалуйста посчитайте пожалуйста с заданием! "Составьте программу вычисления количества трехзначных чисел, у которых цифры упорядочены строго по возрастанию". Прошу не употреблять команду "inc" т.к. такой не знаю!

только основная часть программы на паскале:
for i:=100 to 999
do begin
If (i div 100<((i mod 100) div 10)) and (((i mod 100) div 10)<i mod 10)
then s:=s+1;
end;
Если что, то inc(x) это увеличение числа х на 1, а inc(x,y) увеличение числа х на y