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

Извиняюсь, думал там сложение. тогда s:=1 , и s:=s*(1/i)

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

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