Паскаль . один компакт-диск коштує 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.