Определите, количество чисел 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.