Паскаль оператор розгалудження. один диск стоит 10 грн. а блок за 10 дисков 90 грн.как оптимально сделать покупку на суму с> 100 грн. введите с, выведите калличество блоков и отдельных дисков.

Program znanija; const   price_one_disk = 10;   price_ten_disk = 90;   empty = 0;   input_money = 'введите количество денег: ';   output_price = 'купленно: ';   output_one_disk = ' - по одному диску';   output_ten_disk = ' - по десять дисков';   output_maney = 'осталось денег: ';   char_tabs = chr(9); var   summoney : integer;   countonedisk : integer : = 0;   counttendisk : integer : = 0; begin   write(input_money);   read(summoney);     while((summoney - price_ten_disk) > = empty) do   begin       inc(counttendisk);       summoney : = summoney - price_ten_disk;   end;     while((summoney - price_one_disk) > = empty) do   begin       inc(countonedisk);       summoney : = summoney - price_one_disk;   end;     writeln(output_price);   writeln(char_tabs, counttendisk, output_ten_disk);   writeln(char_tabs, countonedisk, output_one_disk);   writeln(output_maney, summoney); end.

Муравей может оказаться только в четных точках из диапазона от -56 до 56, так как при смене направления некоторые участки им будут проходиться по 2-4-6 и т.д. раз. если x - количество участков, пройденных по 1 разу, а y - количество участков, пройденных несколько раз (2-4-6), то можно записать, что  x+2y=56. т.к. 2y и 56 - четное, то и x-четное.