Найдите произведение ряда 1*1/2*1/3*//*1/n, n вводит пользователь. Программирование Паскаль.

VarP:real;N:integer;BeginP:=1;Write('N = ');ReadLn(N);For N:= 1 to N doP:=P/N;WriteLn('Произведение ряда равно ',P)End.