Паскаль выдаёт ошибку в последней строке.

[Getman]

Program pr_1;
Uses crt;
Var
x,e:real;
begin
writeln ('введите x,e');
readln (x,e);
sl:=x;
k:=0;
while abs(sl)>=e do
begin
if k mod 2 <>0 then s:=s-sl
else s :=s+sl;
k:=k=k+1;
sl:=sl*x*x/k;
end;

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

[whatever]

Кроспост:
http://programmersforum.ru/showthread.php?t=186017
http://programmersforum.ru/showthread.php?t=186000