f:read("Gib die Funktion f(x):= ein");

ab:diff(f(x),x);

g(n):=x[n+1]:x[n]-f(x[n])/ev(ab,x=x[n]);

x[1]:read("Gib den Startwert ein mit mindestens einer Nachkommastelle");

n:read("Wie viele Werte sollen berechnet werden?");

naeherungen:makelist(g(i),i,1,n);

ergebnis:naeherungen[n];

ergebnis:floor(ergebnis*1000+0.5)/1000.0;

print("Ergebnis =",ergebnis);