Loading,
40*1.5 карандашей=60р
4*10 тетради=40р
Остаток 200-(60+40)=100р
100/20=5уп фломастеров.
Ты не понял? Если конкретноне понятен алгоритм, обоснуй.
Если счётчик не прав, то поправь его при перебегании в начало Х:=Х-1
Попробую написАть в ближайший день-два прогу. Ноадеюсь без объектов в проге

А вот так можно?
Код:

repeat
оператор;
оператор;
...
оператор
until выражение
Loading, если есть готовая прога, но с ошибками, выложи сюда заключённой в теге
[cоde]программа[/code]
ЗЫ в словах "code" всё латиницей.