信息学奥林匹克竞赛-级数求和

已知：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.