Сумма членов ряда - Pascal ABC

Формулировка задачи:

Значения x=0,10 Точность

Правильно ли ??

Igor
var e,t,s:real;
k:integer;
begin
repeat
write('0<e<0.6 e=');//меньше первого члена
readln(e);
until (e>0)and(e<0.6);
k:=1;
t:=0;
s:=t;
while t>e do
begin
k:=k+1;
t:=pow(-1,k)*(pow(k-1,k)/pow(k,k));
if t>=e then s:=s+t;
end;
write('s=',s:0:4)
end.

Решение задачи: «Сумма членов ряда»

textual
                            Листинг программы 
                        

                            var e,x,w,s:real;
    k:integer;
begin
x:=0.1;
e:=0.001;
k:=1;
w:=-(x-1);
s:=w;
while abs(w)/power(k,k)>e do
 begin
  k:=k+1;
  w:=-w*(x-1);
  s:=s+w/power(k,k);
 end;
write('s=',s:0:4)
end.
                        