Eingabe: a (* Wurzel von a *) xneu := (a + 1) / 2; (* Startwert *) WHILE ABS(x-xneu) > eps DO x := xneu; xneu := (x + a/x) / 2; END Ausgabe: xneu