#9531: pascal答案


lsyyw2002 (袁祎炜)


var
  x:qword;
begin
  while not eof do begin
    readln(x);
    writeln(exp(1/3*ln(x)):0:0);
  end;
end.