1001014))))))))))))))))))вроде так
100×1000000/8=12500000 байт в секунду
Var
n, k: integer;
begin
readln(n, k);
{решение без циклов и условных операторов}
writeln('Решение Учеников = ', (n - k mod n) mod n);
{проверка}
while k > n do
k := k - n;
if k > 0 then
n := n - k
else
n := 0;
writeln('Проверка Учеников = ', n);
end.