已知：Sn= 1＋1／2＋1／3＋…＋1／n。顯然對於任意一個整數K，當n足夠大的時候，Sn大於K。
現給出一個整數K（1<=k<=15），要求計算出一個最小的n；使得Sn＞K。
輸入格式：
一個正整數K。
輸出格式：
一個正整數N。
輸入：1
輸出：2
var
i,k:longint;
sum:real;
begin
readln(k);
i:=0;
sum:=0;
repeat
inc(i);
sum:=sum+1/i;
until sum>k;
writeln(i);
end.