Вариант решения:
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.
Укажите пожалуйсто на ошибки и помогите их исправить.