Вычислить произведение: 1/2*1/3*...*1/n

var n,i:integer; p:real; begin write('n = '); readln(n); p:=1; for i:=1 to n do p:=p*(1/i); writeln('p = ',p); end. Пример: n = 5 p = 0.00833333333333333

Program kek; var s.i,n:integer; s:=0; readln (n); for i to n do s:=s+1/i; write ('сумма равна  ', s); end.