Паскаль срочно.!!!!!!!!
Один компакт-диск коштує 10 грн., а блок з 10 дисків – 90 грн. Потрібно купити диски на суму m (m>100) грн. Як виконати покупку оптимально? 1.1. Введіть m, виведіть кількість блоків і окремих дисків.

const    cost_1 = 10;    cost_pack = 90;var    m: integer;begin    readln(m);    writeln('Блоков: ', m div cost_pack);    writeln('Дисков: ', (m mod cost_pack) div cost_1);end.