Помогите с программированием в Паскале, пожалуйстаа, очень надо

3) всего чисел от 100 до 999 = 899
чисела вида ХХ0 получаются каждое 10, т. е. остаётся 899 - (899 div 10) = 899 - 89 = 810

ещё нужно учесть числа вида Х0Х (не за быв про предыдущий пункт) : 9 штук первой сотни (101, 102, 103, 104, … , 108, 109), так же 9 штук второй сотни (201, 202, … , 209) и т. д. : 810 - 9*9 = 810 - 81 = 729

Получается программа:

begin WriteLn(729) end.

Всё!
Оптимизация, блин!