Решить задачу в паскале срочно
Решить задачи в паскале используя div (mod) У вас есть Х рублей. Одна шоколадка стоит Ү рублей. Сколько шоколадок вы можете купить на эти деньги? Сколько сдачи вам будет сдано?

N := X div Y;R := X mod Y;

Program shop;var X, Y:integer;beginreadln(X, Y); //количество денег, цена шоколадкиcount := X div Y;change := X mod Y;Writeln('число шоколадок: ', count, 'сдача: ', change);end.

X:Y= xy. Потратите денег. Сдача: y