Определите, количество чисел K, для которых следующая программа выведет такой же результат, что и для K = 24:

var i, k: integer;
function F\(x:integer\):longint;
begin
if x = 1 then
F:=1
else F:=x*F\(x\-1\);
end;
begin
i := 12;
readln\(K\);
while \(i\\gt 0\) and \(F\(i\) > K) do
i:=i-1;
writeln\(i\);
end.