1. 16-57, 8-127, 2-1010111
2. 58
3. 817
Program abc;
var P:real; N,x:integer;
begin
Readln(N);
P:=1;
For x:=1 to N do
P:=P* 1/x;
writeln(P);
end.