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

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.