Pascal,цикл while или repeat 1+1/2! +1/4! +1/6! +…

Program n1;
var i,n,p: integer;
y: real;
begin
write('введите кол-во слагаемых: ');
readln(n);
i:=1;
y:=1;
p:=1;
while i<n do begin
p:=p*(2*i);
y:=y+1/p;
i:=i+1;
end;
writeln(y:2:10);
end.

Var
  i,n:integer;
  p,s:real;
begin
  Write('n='); Read(n);
  s:=1;
  i:=1;
  p:=1;
  while i<n do begin
    p:=p*2*i*(2*i-1);
    s:=s+1/p;
    i:=i+1
    end;
  Writeln('S=',s)
end.