Тренировка задания 21 ЕГЭ с 21.1

var k, i : longint;
function f(n: longint): longint;
begin
  f := n * n * n;
end;
function g(n: longint): longint;
begin
  g := 5*n + 1;
end;
begin
  readln(k);
  i := 1;
  while f(i) < g(k) do
    i := i+1;
  writeln(i)
end.

var k, i : longint; function f(n: longint): longint; begin f := n * n * n; end; function g(n: longint): longint; begin g := 5*n + 1; end; begin readln(k); i := 1; while f(i) < g(k) do i := i+1; writeln(i) end.