Дано натуральное число n. Вычислить P=(1-1/2)(1-1/3)...(1-1/n))

var
  N, i: integer; 
  p: real;
 
begin
  write('Введите число N: ');
  readln(N); 
  p := 1;
  for i := 2 to N   do 
    p := p * (1 - 1 / i);
  writeln('P: ', p);
end.

var
  p : real;
  n, i : integer;
begin
  p := 1;
  write('введите n: ');
  readln(n);
  i := 2;
  repeat
    p := p * (1 - 1 / i);
    i := i + 2
  until i > 2 * n;
  writeln('ответ P = ', p);
  readln
end.

program Project1;
var
 p: real;
 n,i: integer;
begin
  p:= 1;
  write('введите n: ');
  readln(n);
  i:= 2;
  while i <= 2*n do
    begin
      p:= p*(1 - 1/i);
      i:= i+2;
    end;
  writeln('ответ P = ', p);
  readln;
end.

var 
p:real;
i,n:integer;
begin
write('n=');
readln(n);
i:=2;
p:=1;
while i<=n do
begin
p:=p*(1-1/i);
inc(i)
end;
writeln(p)
end.

var
 p: real;
 n,i: integer;
begin
  p:= 1;
  write('введите n: ');
  readln(n);
  i:= 2;
  while i <= 2*n do
    begin
      p:= p*(1 - 1/i);
      i:= i+2;
    end;
  writeln('ответ P = ', p);
  readln;
end.

var
 p: real;
 n,i: integer;
begin
  p:= 1;
  write('введите n: ');
  readln(n);
  for i:=1 to n do
  p:= p*(1 - 1/(2*i));
  writeln('ответ P = ', p);
end.

var 
p:real;
i,n:integer;
begin
write('n=');
readln(n);
i:=2;
p:=1;
while i<=n do
begin
p:=p*(1-1/i);
inc(i)
end;
writeln(p)
end.