var m, k, res : integer;
begin
write('Введите кол-во учеников: '); read(m);
write('Введите кол-во карамелек: '); read(k);
res := k mod m;
write('Чтобы было поровно нужно убрать: ',res);
end.
var m, k, res : integer;
begin
write('Введите кол-во учеников: '); read(m);
write('Введите кол-во карамелек: '); read(k);
res := k mod m;
write('Чтобы было поровно нужно убрать: ',res);
end.