cau 1{{{{{{
var i,n:longint;
t:real;
begin
assign(input,'cau1.inp');rest(input);
assign(output,'cau1.out');rewrite(output);
readln(n);t:=0;
for i:=1 to n do
t:=t+(exp((i+1)*ln(-1))*1/(i+1));
write(t);
end.
cau2{{{{{{{
var n,k:qword;
b:boolean;
begin
assign(input,'cau2.inp');reset(input);
assign(output,'cau2.out');rewrite(output);
readln(n);b:=false;
while not(b) do begin
n:=n+1;k:=2;b:=not(n mod k=0);
while b and (k<sqrt(n)) do begin
k:=k+1;
b:=not(n mod k=0);
end;
end;
write(n);
end.
