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

Пожалуйста.

//Pascalvar  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.