У N туристов есть рюкзак с консервами. Сколько, как минимум, консервов нужно убрать из мешка, чтобы оставшиеся разделись поровну на всех туристов. В программу нужно ввести количество консервов и количество туристов.

Program turisti_i_conservi;

var n, k, rez, z: integer; / / / все переменные целочисленные

begin

rez : = 0;

writeln ('Введите количество туристов');

readln (n);

writeln ('Введите количество консервов');

readln (k);

z : = k; / / / изначальное количество консервов = z

while (k mod n 0) do / / / пока количество консервов не разделится без остатка на количество туристов, выполнять

k : = k - 1; / / / отнимать по одной консерве

rez : = z - k; / / / разность изначального количества консервов и остатка после выполнения действия выше

writeln (rez); / / / результат

end.

Проверено в PascalABC