Не работает программа Pascal ABC(функция)

[kseenq]

программа не работает с EPS меньше 0.1(т.е., например, 0.01, 0.001 и т.д.)

Function f(x:real):real;
begin
 f:=x+sin(x)-0.25;
end;
Function f1(x:real):real;
begin
 f1:=1-cos(x);
end;
var
EPS,x:real;
begin
 write('точность вычисления EPS= ');
 readln(EPS);
 write('начальное приближение x= ');
 readln(x);
 repeat
 x:=x-f(x)/f1(x);
 until abs(f(x))<=EPS;
 writeln('x= ',x:17:14);
 writeln('f(x)= ',f(x):17:14);
end.

[type_Oleg]

Как я понял - метод Ньютона для поиска решения x+sin(x)-0.25=0 ?
Если так, то программа вообще не должна работать. Потому что производная синуса - не минус косинус, а плюс косинус.

[kseenq]

спасибо, издержки незнания математики