program ex;
var
sn:real;
k,n:longint;
begin
readln(k);
n:=1;sn:=0;
repeat
sn:=sn+1/n;
n:=n+1;
until sn>k;
write(n-1);
end.
不要老靠别人,Pascal只有靠自己才能学好