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.
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);
readln
end.
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.