(*$B- Aufgabe 3.2 *)
PROGRAM bis;
VAR a,x,b:real;
    tf: text;
    stri: string[20];

FUNCTION f(x:real):real;
BEGIN
  f:=   -(x-0.6)*(x-0.7)*(x-0.8)*(0.6915 / 0.006)
       + (x-0.5)*(x-0.7)*(x-0.8)*(0.7257/ 0.002)
       - (x-0.5)*(x-0.6)*(x-0.8)*(0.7580/ 0.002)
       + (x-0.5)*(x-0.6)*(x-0.7)*(0.7881/ 0.006)
        -0.7
END;

(*$I bisekt*)

BEGIN
  writeln('Output wohin ?'); readln(stri);
  assign(tf,stri); rewrite(tf);
  writeln('a,b eingeben');
  read(a,b);writeln(tf,'Startintervall =',a,b);
  x := bisekt(a,b);
  writeln(tf,'Nullstelle =',x,' f(X)=',f(x));
  close(tf)
END.