Дано: m учеников и пакет с карамельками, сколько карамелек нужно убрать чтобы раздать всем поровну?

var m, k, res : integer;

begin

 write('Введите кол-во учеников: '); read(m);

 write('Введите кол-во карамелек: '); read(k);

 res := k mod m;

 write('Чтобы было поровно нужно убрать: ',res);

end.