цикл While Опции

[kvadrat]

Условие:

Вариант решения:

program qweasdf;
const e=0.0001;
var i,n:integer;p,k:real;
begin
writeln('n=?');
readln(n);
i:=1;
k:=(1/1+sqr(n));
p:=1;
while e<k do
begin
p:=p+k;
i:=i+1;
k:=(1/1+sqr(n));
end;
writeln('P=',p);
end.

Укажите пожалуйсто на ошибки и помогите их исправить.

[kvadrat]

Это не дубль, мы просто сейчас проходим цикл вайл и нам очень много задают задач на эту тему, половину сам еле как решаю а вот эти которые выкладываю они посложней я их самостоятельно не могу решить.