Условие этой задачи очень простое. Найдите наименьшее K такое, что K!

К это число, которое мы будем увеличивать на единицу, чтобы отыскать то минимальное, которое удовлетворяет заданию.
N вводится юзером. Оно будет аспектом проверки деления нацело.
var k, n, mult : integer;
b : boolean;
begin
readln(n);
k := 1;
while (b = false) do
begin
mult := 1;
for i:integer := 1 to k do
mult := mult * i;
if (mult mod n = 0) then
Как только мы получили целое приватное, сходу меняем false на true, и после этого цикл заканчивает свою работу:
b := true
else
k := k + 1;
end;
writeln(k:5, mult:5, n:5);
end.