Помогите пожалуйста с 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.
Спасибо
Пожалуйста.