Определите, количество чисел k, для которых следующая программа выведет такой же результат, что и для k = 22: var i, k: integer; function f(x: integer): integer; begin f: =x*x*x+x*x; end; begin i : = 20; readln(k); while (i > 0) and (f(i) > k) do i: =i-1; writeln(i); end.