uses Crt;var i,n :integer; p:real;begin p:=1; readln(n); for i:=1 to n do p:=p*(1/i); writeln(p);readlnend.
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.
