Помогите решить цикл

Var i, n:integer; s:double; ch, zn:longint; beginread (n) ; ch:=1; zn:=1; for i:=1 to 2*n do beginzn: = zn * i; write (zn:6) ; if i < = n then ch:=ch * i; {if-ограничение до n}end; writeln; write (ch:6) ; s: = (3 + ch) / zn; writeln; write (s:6) ; end.