Дано натуральное число N. Вычислить произведение первых N сомножителей P=2/3*4/5*6/7… *(2N)/(2N+1) Если можно с блок-схемой
program ppp; var p:real; n,i:integer; begin writeln('введите n'); readln(n); p:=1; for i:=1 to n do p:=p*(2*i)/(2*i+1); writeln(p:8:4); end.