ДАЮ 100 поинтов посчитайте написать код в PascalABC Очень нужно.

:

const h = 24;

c = 5;

var s,k:integer;

begin

write('Введите сумму, которую Вы готовы потратить: ');

read(s);

k := (s div h) + (s div h div c);

write('Количество шоколадок: ',k);

end.