Задача на Массивы Опции

[pan]

ПОЖ-ТА!!! проверьте правильно ли я решил задачу!

program z1;
uses crt;
var
e,x,s,s1,s2: real; i,n: integer;
begin
clrscr;
e:=0.001; x:=-2; s1:=1; s:=0;
write ('vvedite X: ');
readln (x);
write ('vvedite N: ');
readln (n);
while abs(n*ln(x))<=e do
begin
for i:=1 to n do
begin
s1:=s1*x;
s2:=s1/i;
end;
s:=s+s2;
x:=x+0.25;
end;
writeln ('s=',s);
writeln ('x=',x);
readln;
end.