Question

Помогите пожалуйста с 1 задание по информатике кто первый поможет тому дам лучший ответ

Answer 1

//Pascal
var
  i, n: integer;
  p: real;

begin
  p := 1;
  readln(n);
  for i := 1 to n do p := p * 2 * i / (2 * i + 1);
  writeln(p);
end.