Pascal,цикл while или repeat1+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.