Определите, количество чисел k, для которых следующая программа выведет такой же результат, что и для k = 12?
var k, i : longint;
function f\(n: longint\): longint;
begin
f:= 3*n*n - 2*n;
end;
begin
readln\(k\);
i := 1;
while f\(i\) < k do
i := i + 1;
if f\(i\)-k <= f\(i\-1\) then
writeln\(i\)
else writeln\(i\-1\);
end.