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

Program turisti_i_conservi;var n, k, rez, z: integer; /// все переменные целочисленныеbeginrez := 0;writeln (\'Введите количество туристов\');readln (n); writeln (\'Введите количество консервов\');readln (k);z := k; /// изначальное количество консервов = zwhile (k mod n <> 0) do /// пока количество консервов не разделится без остатка на количество туристов, выполнятьk := k - 1; /// отнимать по одной консервеrez := z - k; /// разность изначального количества консервов и остатка после выполнения действия вышеwriteln (rez); /// результатend.Проверено в PascalABC